我这里有一张股票价格表:
https://drive.google.com/file/d/1S666wiCzf-8MfgugN3IZOqCiM7tNPFh9/view?usp=sharing
有些列有 NA,因为该公司不存在(直到后来),或者该公司已倒闭。
我想要做的是:选择没有 NA 的列。我使用 data.table 因为它更快。这是我的工作代码:
example <- fread(file = "example.csv", key = "date")
example_select <- example[,
lapply(.SD,
function(x) not(sum(is.na(x) > 0)))
] %>%
as.logical(.)
example[, ..example_select]
Run Code Online (Sandbox Code Playgroud)
是否有更好(更少行)的代码来执行相同的操作?谢谢你!
在 R 中,一旦运行以下代码:
temp <- split(mtcars, mtcars$cyl)
Run Code Online (Sandbox Code Playgroud)
如果我只向其他人发送“临时”...
他可以使用什么代码将“临时”切片放回一起?他不需要使用“cyl”作为列名;他可以使用任何他想要的东西。谢谢!
我正在 R 中学习 data.table。这个连接让我困惑了几个小时。有人可以帮我理解吗?
library(data.table)
DT = data.table(x = rep(c("b", "a", "c"), each = 3),
y = c(1, 3, 6),
v = 1:9)
DT
#> x y v
# 1: b 1 1
# 2: b 3 2
# 3: b 6 3
# 4: a 1 4
# 5: a 3 5
# 6: a 6 6
# 7: c 1 7
# 8: c 3 8
# 9: c 6 9
X = data.table(x = c("c", "b"),
v …Run Code Online (Sandbox Code Playgroud)