用R 比较两列数大小

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如题，怎样用R 比较一个txt文件里两列数（A,B列）的大小？ 并列出所有A列比B列大的行。谢谢啦

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：txt

library(dplyr)
df=data.frame(A=c(5,6,7,8),B=c(1,7,5,9))
filter(df,A>B)

> filter(df,A>B)
  A B
1 5 1
2 7 5

358463121 发表于 2015-2-4 19:59
library(dplyr)
df=data.frame(A=c(5,6,7,8),B=c(1,7,5,9))
filter(df,A>B)

谢谢回复，能知道选出的这些行是第几行吗？

annizhou 发表于 2015-2-4 20:08
谢谢回复，能知道选出的这些行是第几行吗？

加多一行C列标识行数
> df=data.frame(A=c(5,6,7,8),B=c(1,7,5,9),C=1:4)
> filter(df,A>B)
  A B C
1 5 1 1
2 7 5 3

data<-read.table("C:\\1.txt")   ##读取C盘1.txt文件
data                   ##列出数据
dLength<-nrow(data)    ##获取列数，两列列数必须相等
dNum<-1                ##赋值辅助向量
dList<-c()             ##列表向量
class(data$V1)         ##向量类型
attach(data)
while(dLength+1>dNum)  ##循环结构
  {

  dV1<-V1[dNum]   ##取出每行的数据
  dV2<-V2[dNum]
  if (dV1>dV2)        ##比较大小
  {
    dList<-c(dList,dNum)  ##合并向量
  }
  dNum<-dNum+1

  }
detach(data)
dList     

358463121 发表于 2015-2-4 20:09
加多一行C列标识行数
> df=data.frame(A=c(5,6,7,8),B=c(1,7,5,9),C=1:4)
> filter(df,A>B)

非常感谢了，问题解决了

1. df=data.frame(A=c(5,6,7,8),B=c(1,7,5,9))
   
2. with(df,df[A>B,])

复制代码