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

kaifengedu

6889

收藏 2013-01-16

Owls.txt
大小:(22.38 KB)

马上下载

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

复制代码

出来的结果是

复制代码

如果用命令

复制代码

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

复制代码

扫码加我拉你入群

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

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

全部回复

kaifengedu

2013-1-16 09:42:32

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

扫码加我拉你入群

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

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

qoiqpwqr

2013-1-16 10:49:52

没有问题啊。

你想得到什么样的结果？

扫码加我拉你入群

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

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

qoiqpwqr

2013-1-16 10:55:00

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

扫码加我拉你入群

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

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

kaifengedu

2013-1-16 11:10:08

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

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

扫码加我拉你入群

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

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

qoiqpwqr

2013-1-16 11:52:03

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

扫码加我拉你入群

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

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

点击查看更多内容…

kaifengedu

2013-1-16 13:09:03

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

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

复制代码

扫码加我拉你入群

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

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

jmpamao

2013-1-17 00:06:17

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

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

扫码加我拉你入群

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

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

kaifengedu

2013-1-17 06:19:31

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

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

扫码加我拉你入群

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

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

jmpamao

2013-1-17 09:18:43

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

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

扫码加我拉你入群

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

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

jmpamao

2013-1-17 09:21:18

而Owls$NestNight <- ifelse(Owls$FoodTreatment=="Satiated",paste(Owls$Nest,"1",sep="_"),paste(Owls$Nest,"2",sep="_"))
都有数据ifelse 返回的值填好坑，再赋值给 Owls$nestnight

扫码加我拉你入群

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

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

kaifengedu

2013-1-17 11:52:28

jmpamao 发表于 2013-1-17 09:18
按照你之前的ifelse(...==",,",Owls$Night=paste(), OwlS$Night=paste())
ifelse 语句应该也是可以这样表 ...

我的理解是Owls$Food是一个长为L=599的向量,它的取值每次都与"Satiated"做一个比较,
比如,第一次如果等于"Satiated",那么Owl$NestNight赋值为Owls$Nest相应的取值加上_1,
反之,Owl$NestNight赋值为Owls$Nest相应的取值加上_2,这样依次进行下去,直到进行了L=599次.
所以也应该给Owl$NestNight赋了599次值.

扫码加我拉你入群

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

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

jmpamao

2013-1-17 21:58:12

x =c(1,1,2,3)
y=c()

ifelse(x==1,y=1,0)
y
NULL

ifelse(x==1,y=1,y=0)
都不行啊~~

扫码加我拉你入群

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

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

kaifengedu

2013-1-18 07:52:07

今天试了几种情形,一一列出讨论一下吧.
用的R版本是2.15.2,编辑器是RStudio最新版.
每换一种方法我都清除了所有变量的额历史记录.

第一种

复制代码

显示结果是

复制代码

第二种

复制代码

显示结果是

复制代码

第三种方法是

复制代码

显示结果是

复制代码

第四种方法是

复制代码

显示结果是

复制代码

感觉很明显,第四种方法是不对的,但是为什么第二种和第三种不对呢?
谁能解答一下,谢谢!

扫码加我拉你入群

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

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

jmpamao

2013-1-20 23:07:32

把 ifelse语句中的问题，在https://bbs.pinggu.org/forum.php? ... ;extra=#pid16333808贴中，正好也遇到疑惑的地方，并尝试说明了下，你可以看看，是否正确，一起讨论撒。

扫码加我拉你入群

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

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

kaifengedu

2013-1-21 14:50:21

对该例子,根据你的想法,我是这样理解的.
ifelse(Owls$FoodTreatment == "Satiated", Owls$NestNight <- paste(Owls$Nest, "1",sep = "_"),
Owls$NestNight <- paste(Owls$Nest, "2",sep = "_"))
上述语句,最后应该返回是Owls$NestNight <- paste(Owls$Nest, "2",sep = "_")(因为最后一个比较取值是FALSE),而Owls$Nest又是一个长向量,所以把2重复地赋给Owls$Nest.就给出了前述不正确的结果.

扫码加我拉你入群

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

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

jmpamao

2013-1-21 15:28:12

night赋值跟 ifelse 语句没有一毛的关系。

比如
x = c(1,1,2,1)
ifelse(x==1,night <- 1, night <- 0)
night

赋值可不管 ifelse中 test 最后是T,or F,

扫码加我拉你入群

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

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

kaifengedu

2013-1-22 07:07:45

jmpamao 发表于 2013-1-21 15:28
night赋值跟 ifelse 语句没有一毛的关系。

比如

其实应该还是有关系的,要看是否用到ifelse 函数中的ans[!test & !nas]语句,
比如:

复制代码

night的值就是1.

扫码加我拉你入群

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

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

kaifengedu

2013-1-22 07:12:08

又看了一下你前面给我链接的帖子.
根据上面的例子,这句话
"只会认后一次的赋值Owls$NestNight <- paste(Owls$Nest, "2",sep = "_")，为最终赋值。及，为什么都是"_2" "
的理解是否有问题?

扫码加我拉你入群

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

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

jmpamao

2013-1-22 09:17:11

kaifengedu 发表于 2013-1-22 07:07
其实应该还是有关系的,要看是否用到ifelse 函数中的ans[!test & !nas]语句,
比如:night的值就是1.

看来，根据触动了 rep 语句，来决定赋值情况，有3种情况， 1）：只有yes, 赋值运行第1， 2）、有yes, 后no，赋值为2。3）、只有NO，赋值为 2.

扫码加我拉你入群

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

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

kaifengedu

2013-1-22 19:55:30

jmpamao 发表于 2013-1-22 09:17
看来，根据触动了 rep 语句，来决定赋值情况，有3种情况， 1）：只有yes, 赋值运行第1， 2）、有yes ...

简单来说,就两种情况,全是TRUE,赋值是第一个,否者,赋值第二个.呵呵.

扫码加我拉你入群

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

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

jmpamao

2013-1-22 20:31:05

最后，还是别把赋值放在 ifelse语句中的好，呵呵。
现在看到ifelse，大脑里想到的不是 if esle, 而是 rep 和向量化【逻辑】

扫码加我拉你入群

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

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

kaifengedu

2013-1-23 11:50:07

刚看到数据框与列表的关系:
A data frame is a list that contains multiple named vectors that are the same length.

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群