当数据框列等于 1 时,我需要在列表中获取行号。示例代码:
emp.data <- data.frame(
emp_name = c("Rick","Dan","Michelle","Ryan","Gary"),
salary = c(623.3,515.2,611.0,729.0,843.25),
start_date = as.Date(c("2012-01-01", "2013-09-23", "2014-11-15", "2014-05-11",
"2015-03-27")),
column = c(0, 1, 0, 1, 1),
stringsAsFactors = FALSE
)
emp.data <- tail(emp.data, 3)
emp.data
Run Code Online (Sandbox Code Playgroud)
我试过这个:
result <-as.numeric(rownames(emp.data[emp.data$column==1,]))
Run Code Online (Sandbox Code Playgroud)
但我得到这个输出:
4 5
Run Code Online (Sandbox Code Playgroud)
我需要这样的输出:
2 3
Run Code Online (Sandbox Code Playgroud)
我们可以使用which逻辑表达式而不是row.namesasrow.names可以不同
which(emp.data$column == 1)
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
33 次 |
| 最近记录: |