возвращает полный data.frame из функции в R

Question

Я хочу сохранить дополнительную информацию поверх data.frame и вернуть ее из функции. как вы можете видеть - дополнительные данные исчезают. пример:

> d<-data.frame(N1=c(1,2,3),N2=(LETTERS[1:3])) 
> d 
    N1 N2 
1 1 A 
2 2 B 
3 3 C 
> d.x = 3 
> d 
    N1 N2 
1 1 A 
2 2 B 
3 3 C 
> d.x 
[1] 3 
> foo1 <- function() { 
+ d<-data.frame(N1=c(1,2,3),N2=(LETTERS[1:3])) 
+ d.x=3 
+ return(d) 
+ } 
> 
> d1<-foo1() 
> d1 
    N1 N2 
1 1 A 
2 2 B 
3 3 C 
> d1.x 
Error: object 'd1.x' not found 

я посмотрел в assign, но так как data.frame создается внутри функции и возвращается я предполагаю, что это не имеет значения здесь. Спасибо.

Answer 1

Ваши комментарии показывают, вы хотите создать атрибут (обычный способ прикрепить "метаданные" к объектам R) под названием «d 0,3" и использовать foo1, чтобы установить этот атрибут для dataframe:

d <- data.frame(N1=c(1,2,3),N2=(LETTERS[1:3])) 
foo1 <- function(d, attrib) { 
    attr(d, "d.x") <- attrib 
    return(d) 
    } 
d <- foo1(d, 3) # need to assign value to 'd' since function results are not "global" 
d # note that the default print method for dataframes does not show the attributes 
#--------- 
    N1 N2 
1 1 A 
2 2 B 
3 3 C 
#----- 
attributes(d) 
#----- 

$names 
[1] "N1" "N2" 

$row.names 
[1] 1 2 3 

$class 
[1] "data.frame" 

$d.x 
[1] 3 

См ?attr и ?attributes для более подробной информации. Существует также функция comments.

Answer 2

Изменить это:

d.x=3 

к этому:

d$x=3