请教list或者data.frame里增加新的变量问题.

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

Owls.txt (22.38 KB)

2013-1-16 09:24:46 上传

附件是R语言初学者指南里的一个数据集文件.
我采用以下命令

1. Owls <- read.table(file = "Owls.txt", header = TRUE, dec = ".")
   
2. names(Owls)
   
3. str(Owls)
   
4. ifelse(Owls$FoodTreatment == "Satiated", Owls$NestNight <- paste(Owls$Nest, "1",sep = "_"),
   
5.        Owls$NestNight <- paste(Owls$Nest, "2",sep = "_"))
   
6. head(Owls)  

复制代码

出来的结果是
  

1.   Nest FoodTreatment SexParent ArrivalTime
   
2. 1 AutavauxTV      Deprived      Male       22.25
   
3. 2 AutavauxTV      Satiated      Male       22.38
   
4. 3 AutavauxTV      Deprived      Male       22.53
   
5. 4 AutavauxTV      Deprived      Male       22.56
   
6. 5 AutavauxTV      Deprived      Male       22.61
   
7. 6 AutavauxTV      Deprived      Male       22.65
   
8.   SiblingNegotiation BroodSize NegPerChick    NestNight
   
9. 1                  4         5         0.8 AutavauxTV_2
   
10. 2                  0         5         0.0 AutavauxTV_2
    
11. 3                  2         5         0.4 AutavauxTV_2
    
12. 4                  2         5         0.4 AutavauxTV_2
    
13. 5                  2         5         0.4 AutavauxTV_2
    
14. 6                  2         5         0.4 AutavauxTV_2

复制代码

如果用命令

1. Owls$NestNight <- paste(Owls$Nest, Owls$FoodTreatment,sep = "_")

复制代码

然后再用head(Owls)就得到了

1.    Nest FoodTreatment SexParent ArrivalTime
   
2. 1 AutavauxTV      Deprived      Male       22.25
   
3. 2 AutavauxTV      Satiated      Male       22.38
   
4. 3 AutavauxTV      Deprived      Male       22.53
   
5. 4 AutavauxTV      Deprived      Male       22.56
   
6. 5 AutavauxTV      Deprived      Male       22.61
   
7. 6 AutavauxTV      Deprived      Male       22.65
   
8.   SiblingNegotiation BroodSize NegPerChick           NestNight
   
9. 1                  4         5         0.8 AutavauxTV_Deprived
   
10. 2                  0         5         0.0 AutavauxTV_Satiated
    
11. 3                  2         5         0.4 AutavauxTV_Deprived
    
12. 4                  2         5         0.4 AutavauxTV_Deprived
    
13. 5                  2         5         0.4 AutavauxTV_Deprived
    
14. 6                  2         5         0.4 AutavauxTV_Deprived
    
15. 
    
16. 
    
17. 请问是不是这里我的ifelse语句用法有问题,谢谢!
    
18. 
    
19. 另外一个问题,这里导入的Owls是list还是data.frame呢?怎么用is.list(Owls)出来的结果是TRUE,用is.data.frame(Owls)出来的结果也是TRUE.

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Frame list Fram Data IST 初学者 names file

吐槽一下,貌似排版很难排啊,呵呵.

没有问题啊。

你想得到什么样的结果？

data frame 其实也是一种list，你可以Owls[[1]]就是第一列

qoiqpwqr 发表于 2013-1-16 10:55
data frame 其实也是一种list，你可以Owls[[1]]就是第一列

谢谢版主,
我主要的问题是根据ifelse语句应该得到head(Owls)输出的第二行NestNight的值为AutavauxTV_1,但是给的输出确是AutavauxTV_2.这是为什么?

Owls$NestNight <- paste(Owls$Nest, ifelse(Owls$FoodTreatment == "Satiated", 1, 2), sep = "_")

qoiqpwqr 发表于 2013-1-16 11:52
Owls$NestNight

版主能否解释一下这条命令为什么不对吗?多谢!

1. ifelse(Owls$FoodTreatment == "Satiated", Owls$NestNight <- paste(Owls$Nest, "1",sep = "_"),
   
2.                Owls$NestNight <- paste(Owls$Nest, "2",sep = "_"))

复制代码

Owls$NestNight <- ifelse(Owls$FoodTreatment=="Satiated",paste(Owls$Nest,"1",sep="_"),paste(Owls$Nest,"2",sep="_"))
yes,no,返回的值，如何赋与的问题吧。
呵呵， 可以想象其中的不同。

ps.还是 qoiqpwqr 兄的表达方式 最简洁。

jmpamao 发表于 2013-1-17 00:06
Owls$NestNight

您能具体解释一下本例的不同吗?我实在没想起有什么不同,在运行ifelse语句时结果也能出来,但是就是存不到Owls里.而用版主的方法或者我给的第二种方法都可以.

按照你之前的ifelse(...==",,",Owls$Night=paste(), OwlS$Night=paste())
ifelse 语句应该也是 可以这样表示
if(Owls$Food..==".."){
  Owls$NestNight=paste(,"1",sep)
}else{Owl$NestNight=paste()}

....hehe 是不是 那个多次的赋值给Owl$NestNight, 有点在玩弄电脑的感觉。
或者说 数据的结构不大清晰。
一起讨论吧， 这个问题 很有意思。