小编And*_*ico的帖子

如何向预分配的data.frame添加向量列表,以便向量形成data.frame的行？

例如.

ll<-list(c(1,2,3),c(2,3,4))
dd<-data.frame(matrix(nrow=10,ncol=3))  

我需要dd看起来像

1 2 3
2 3 4

我希望每个col和group出现的所有相等/相同值(唯一== 1)设置为NA:
如果每组和col我们至少有2个不同的值,我想保留它们全部.

难以解释.以下是一些示例数据:

代表.例:

ds <- data.frame()
for (i in 1:3) {
    for(ii in 1:3) {
        ds <- rbind(mtcars[i,1:4],ds)
    }
}
rownames(ds) <- NULL
ds[1,1] <- 1337;ds[2:3,3] <- 1337;ds[5,2] <- 1337;ds[8,1] <- 1337;
ds <- cbind(group=rep(1:3,each=3),ds,stringis=c("a","a","a","b","c","d","e","e","f"))

看起来像:

> ds
  group    mpg  cyl disp  hp stringis
1     1 1337.0    4  108  93        a
2     1   22.8    4 1337  93        a
3     1   22.8    4 1337  93        a
4     2   21.0    6  160 110        b
5     2   21.0 1337  160 110 …

为什么会有人曾经选择apply(.,margin=2,.)过sapply(.,.).

sapply(mtcars,sum)
apply(mtcars,2,sum)

第二个apply似乎很冗长.

1. 申请保证金= 2是否有更深层次的意义？

2. 它是历史遗留物,sapply是之后定义/发明的apply.

@Friendly助手:(我明白了这一点.)

m<-matrix(1:9,ncol=3)
sapply(m,sum)
apply(m,1,sum)

x <- 1:9
names(x) <- paste0("x",x)
y <- 2:5
names(y) <- paste0("y",y)

fun1      <-function(a, b) {paste(class(a),b, sep = "**")} #works
funError  <-function(a, b) {paste(class(a),class(b), sep = "**")} #does not work with outer
funNoError<-function(a, b) {paste(a,class(a),class(b),b, sep = "**")}  #works with outer  

funError(1,2) #is a valid function
outer(x, y, "funError") # fails
outer(x, y, "funNoError") # works

Q1：为什么不起作用outer(x, y, "funError")？

dim(robj) <- c(dX, dY) 中的错误：dims [产品 36] 与对象 [1] 的长度不匹配

Q2：为什么outer(x, y, "funNoError")有效？它非常相似。

• 我能看到的唯一区别是，的每个“结果”funError …

https://angular.io/api/core/Injector#get

有争论flags?: InjectFlags。（https://angular.io/api/core/InjectFlags）。

我们如何拥有多个InjectFlags？

例如一些东西。那会类似于

@Optional() @SkipSelf() private _type1: Type1;