我有一个数组,包括一个名为"comp"的项目(Yes,No)上的两个熟练变量(theta0,theta1).这需要转换为一个矩阵.有什么方法可以转换像底部那样的矩阵吗?
我的数组看起来像这样:
>priCPT.i6
, , comp = Yes
theta1
theta0 Low Med High
Low 0.8377206 0.6760511 0.4576021
Med 0.6760511 0.4576021 0.2543239
High 0.4576021 0.2543239 0.1211734
, , comp = No
theta1
theta0 Low Med High
Low 0.1622794 0.3239489 0.5423979
Med 0.3239489 0.5423979 0.7456761
High 0.5423979 0.7456761 0.8788266
attr(,"class")
[1] "CPA" "array"
Run Code Online (Sandbox Code Playgroud)
我道歉,我无法生产你可以玩的东西.我正在寻找类似的东西:
theta0 theta1 Yes No
Low Low 0.8377206 0.1622794
Low Med .. ..
Low High .. ..
Med Low .. ..
Med Med .. ..
Med High .. .. …Run Code Online (Sandbox Code Playgroud) 我正在尝试删除一些有效值少于 5 个的列。这是一个示例数据集。
df <- data.frame(id = c(1,2,3,4,5,6,7,8,9,10),
i1 = c(0,1,1,1,1,0,0,1,NA,1),
i2 = c(1,0,0,1,0,1,1,0,0,NA),
i3 = c(NA,NA,NA,NA,NA,NA,NA,NA,NA,0),
i4 = c(NA,1,NA,NA,NA,NA,NA,NA,1,NA))
> df
id i1 i2 i3 i4
1 1 0 1 NA NA
2 2 1 0 NA 1
3 3 1 0 NA NA
4 4 1 1 NA NA
5 5 1 0 NA NA
6 6 0 1 NA NA
7 7 0 1 NA NA
8 8 1 0 NA NA
9 9 NA 0 NA …Run Code Online (Sandbox Code Playgroud) 我需要将有效值转移到每个 .dataframe 的顶部id。这是一个示例数据集:
df <- data.frame(id = c(1,1,1,2,2,2,3,3,3,3),
itemid = c(1,2,3,1,2,3,1,2,3,4),
values = c(1,NA,0,NA,NA,0,1,NA,0,NA))
df
id itemid values
1 1 1 1
2 1 2 NA
3 1 3 0
4 2 1 NA
5 2 2 NA
6 2 3 0
7 3 1 1
8 3 2 NA
9 3 3 0
10 3 4 NA
Run Code Online (Sandbox Code Playgroud)
不包括 id 列,当values列中缺少值时,我想将每个值移动到顶部对齐id。
我怎样才能获得下面这个所需的数据集?
df1
id itemid values
1 1 1 1
2 1 2 0 …Run Code Online (Sandbox Code Playgroud) 我试图根据数据框中的四列估计平均分数.条件是连续的至少两个值应该具有四个值中的非缺失值.否则,如果该行中存在两个以上的NA,则平均分数应为NA.假设数据集中只有三个值可用,一个NA.然后,总得分除以3,因为我需要将总得分除以可用值的数量.
我的数据如下所示:
a = c(1, 1, 1, 1, NA, 2, NA)
b = c(2, 4, NA, 4, 1, NA, 8)
c = c(2, NA, 6, 4, NA, 4, NA)
d = c(2, 4, NA, 4, NA, 3, NA)
df <- data.frame(a,b,c,d)
> df
a b c d
1 1 2 2 2
2 1 4 NA 4
3 1 NA 6 NA
4 1 4 4 4
5 NA 1 NA NA
6 2 NA 4 3
7 NA 8 …Run Code Online (Sandbox Code Playgroud) 我有一个数据集,如下所示R:找到了类似的帖子,例如: 计算一个值出现的次数,但不完全相同。
id <- c(1,1,1, 2,2,2, 3,3,3,3)
cat.1 <- c("a","a","a","b","b","b","c","c","c","c")
cat.2 <- c("m","m","m","f","f","f","m","m","m","m")
score <- c(-1,0,-1, 1,0,1, -1,0,1,1)
data <- data.frame("id"=id, "cat.1"=cat.1, "cat.2"=cat.2, "score"=score)
data
id cat.1 cat.2 score
1 1 a m -1
2 1 a m 0
3 1 a m -1
4 2 b f 1
5 2 b f 0
6 2 b f 1
7 3 c m -1
8 3 c m 0
9 3 c m 1
10 3 c …Run Code Online (Sandbox Code Playgroud) 我想将 items 变量与 cat 交叉表作为频率表。
df1 <- data.frame(cat = c(1,1,1,1,2,2,2,2,2,3,3,3,3,3,4,4,4,4),
item1 = c(0,0,1,0,1,1,0,0,0,1,0,1,0,0,1,0,0,1),
item2 = c(1,1,0,1,0,1,1,0,0,0,1,0,1,1,0,0,1,0),
item3 = c(0,0,1,0,1,0,0,0,1,0,1,1,1,0,0,1,0,1))
> table(df1$cat, df1$item1)
0 1
1 3 1
2 3 2
3 3 2
4 2 2
Run Code Online (Sandbox Code Playgroud)
有没有办法通过 cat 一起打印所有项目变量频率表?
谢谢
我需要将“ +/-”列名称折叠为一个列名称并添加计数。这是数据集的示例。
data <- as.data.frame(c("+A","-A","+A","-A", "+A","+A","-B","+B","-B", "C","C"))
colnames(data) <- "class"
table(data$class)
-A -B +A +B C
2 2 4 1 2
Run Code Online (Sandbox Code Playgroud)
我想将那些-/ + col名称折叠为没有符号列的名称并将其加起来。
所需的数据集应如下所示:
A B C
6 3 2
Run Code Online (Sandbox Code Playgroud)
有时,这些+/-变量可能会丢失,或者类别“ C”也可能会丢失。即使我缺少一些类别,如何将它们加起来?
有什么想法吗?