v = {1, 2, 5, 7, 4};
Show[
ListPlot[v, PlotRange -> {{0, 6}, {0, 7}}],
Graphics[Text["A", {1, 1}, {0, -1}]],
Graphics[Text["B", {2, 2}, {0, -1}]],
Graphics[Arrow[{{0, 0}, {2, 6}}]],
Graphics[Text["V1", {1, 3}, {0, -2}]]
]
Study the help page for each of those functions used and be sure to click on Details and Options on each of those pages.
