Не рекомендуется называть объект с номерами в качестве префикса, но мы можем использовать обратную кавычку для извлечения значения из объекта
`1_patient`$age
Если есть больше, чем объект, мы можем использовать mget
чтобы вернуть объекты в list
, а затем извлечь столбец 'age', зациклив list
с lapply
mget(ls(pattern = "^\\d+_mtcars$"))
#$`1_mtcars`
# mpg cyl disp hp drat wt qsec vs am gear carb
#Mazda RX4 21 6 160 110 3.9 2.620 16.46 0 1 4 4
#Mazda RX4 Wag 21 6 160 110 3.9 2.875 17.02 0 1 4 4
lapply(mget(ls(pattern = "^\\d+_patient$")), `[[`, 'age')
Используя небольшой воспроизводимый пример
data(mtcars)
`1_mtcars` <- head(mtcars, 2)
1_mtcars$mpg
Ошибка: неожиданный ввод в "1 _"
`1_mtcars`$mpg
#[1] 21 21