Я пытаюсь получить доступ к $a с помощью следующего примера:
df<-data.frame(a=c("x","x","y","y"),b=c(1,2,3,4))
> df
a b
1 x 1
2 x 2
3 y 3
4 y 4
test_fun <- function (data.frame_in) {
print (data.frame_in[1])
}
Я могу теперь получить доступ к $a, если я использую индекс для первого столбца:
подайте заявку (df, 1, test_fun)
a
"x"
a
"x"
a
"y"
a
"y"
[1] "x" "x" "y" "y"
Но я не могу получить доступ к $a столбца с нотацией $: ошибка: "Оператор $ недействителен для атомарных векторов"
test_fun_2 <- function (data.frame_in) {
print (data.frame_in$a)
}
>apply(df, 1, test_fun_2)
Error in data.frame_in$a : $ operator is invalid for atomic vectors
Разве это не возможно?
Вместо этого вы можете использовать adply
из пакета plyr:
library(plyr)
adply(df, 1, function (data.frame_in) print(data.frame_in$a))
, потому что data.frame.in
не является data.frame:
apply(df, 1, function(v){print(class(v))})
, но вы можете получить доступ к названным элементам с помощью:
test_fun_2 <- function (data.frame_in) {
+ print (data.frame_in['a'])}
Поскольку apply
изменяет тип данных в вашей функции:
> apply(df, 1, class)
[1] "character" "character" "character" "character"
> apply(df, 1, colnames)
NULL
Поскольку имена столбцов отсутствуют, вы не можете ссылаться на значения с оператором $
.
Из документации apply
:
Если X не является массивом, но имеет атрибут измерения , применить попытки принудить его к массиву с помощью as. матрица, если она двумерная (например, кадры данных ) или через as.array.