Когда вы хотите поведение по умолчанию Mathematica, например: имя переменной немедленно заменяется значением, присвоенным этой переменной, вещи часто довольно просты.Но когда вы хотите изменить это поведение по умолчанию, обычно все гораздо сложнее.
Попробуйте это
values = {{1, 5}, {2, 7}, {3, 4}};
SetAttributes[fun, {HoldFirst, Listable}];
fun[v_] := ToString[Unevaluated[v]];
g1 = Show[ListPlot[values],
Graphics[Text[#[[1]], #[[2]], {0, 1}] & /@
Transpose[{Flatten[fun[{x[1], x[2], x[3]}]], values}]]]

Обычно яПорекомендуйте новым пользователям изучить каждую часть ответа, прочитать страницы справки, разобрать его, посмотреть, как работает каждая часть, внести небольшие изменения, пока не поймете, как вы можете это адаптировать в будущем.Но в этом случае, я думаю, просто надеюсь, что это работает для вас, как есть.