- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
所以我目前在R中遇到一个我完全知道如何在Stata中处理的问题,但是却浪费了两个多小时来完成R中的工作。
使用下面的data.frame,我想要的结果是确切地获得每个组的第一个观察值,而组是由多个变量组成的,并且必须由另一个变量进行排序,即通过以下方式获得的data.frame mydata:
id <- c(1,1,1,1,2,2,3,3,4,4,4)
day <- c(1,1,2,3,1,2,2,3,1,2,3)
value <- c(12,10,15,20,40,30,22,24,11,11,12)
mydata <- data.frame(id, day, value)
id day value
1 1 10
1 2 15
1 3 20
2 1 40
2 2 30
3 2 22
3 3 24
4 1 11
4 2 11
4 3 12
row[1]: (id,day)=(1,1))
,首先对值进行排序(以便保留值最低的行)。
bys id day (value): keep if _n == 1
mydata$id1 <- paste(mydata$id,"000",mydata$day, sep="") ### the single group identifier
myid.uni <- unique(mydata$id1)
a<-length(myid.uni)
last <- c()
for (i in 1:a) {
temp<-subset(mydata, id1==myid.uni[i])
if (dim(temp)[1] > 1) {
last.temp<-temp[dim(temp)[1],]
}
else {
last.temp<-temp
}
last<-rbind(last, last.temp)
}
last
bys var1 var2: keep if _n == 1
的有效方法?
最佳答案
我会命令data.frame
,此时您可以使用by
进行调查:
mydata <- mydata[with(mydata, do.call(order, list(id, day, value))), ]
do.call(rbind, by(mydata, list(mydata$id, mydata$day),
FUN=function(x) head(x, 1)))
data.frame
:
library(data.table)
DT <- data.table(mydata, key = "id,day")
DT[, head(.SD, 1), by = key(DT)]
# id day value
# 1: 1 1 10
# 2: 1 2 15
# 3: 1 3 20
# 4: 2 1 40
# 5: 2 2 30
# 6: 3 2 22
# 7: 3 3 24
# 8: 4 1 11
# 9: 4 2 11
# 10: 4 3 12
data.table
:
DT <- data.table(id, day, value, key = "id,day")
DT[, n := rank(value, ties.method="first"), by = key(DT)][n == 1]
Ranks <- with(mydata, ave(value, id, day, FUN = function(x)
rank(x, ties.method="first")))
mydata[Ranks == 1, ]
关于R-保留由多个变量标识的每个组的第一个观察值(Stata等效 "bys var1 var2 : keep if _n == 1"),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/21553235/
这个想法我已经酝酿了一段时间,但我在网上找不到任何人讨论过这种可能性。 目前可用于进行不区分大小写的搜索的建议似乎是使用“ilike”或“citext”。 我们正在从 Microsoft Sql Se
提前抱歉,我不太确定如何解释这个,但我正在尝试这样做: 我有一个看起来像这样的表: id | make | model 1 | iphone | iphone 7 2 | iphone | iphon
所以我目前在R中遇到一个我完全知道如何在Stata中处理的问题,但是却浪费了两个多小时来完成R中的工作。 使用下面的data.frame,我想要的结果是确切地获得每个组的第一个观察值,而组是由多个变量
我有以下 NHibernate QueryOver 查询: var query = session.QueryOver() .Where(i => i.
我有 3 个表: 推文: CREATE TABLE tweets ( text_content VARCHAR(280) not null, username VA
在具有多个 order by 子句的 SQL 查询中,它们是否真的在执行期间全部运行? 例子: select * from my_table order by field5, field3, fiel
我是一名优秀的程序员,十分优秀!