本人系R语言初入门者，求教R语言高手一个问题

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

本人的数据如下：其中a 取值（327或329）；b 取值（172或176）；c 取值（138或140）个体1： 327  172    c个体2： 329  174  140
个体3：  a     b    138
个体4：  a    176   c
个体5：331  172  142
个体6：327  172    c
个体7：  a      b   138
个体8：329  176  140
个体9：327  176    c
个体10: 329  172   c
   .          .      .     .

   .          .      .     .
   .          .      .     .
   .          .      .     .
   .          .      .     .
个体间如果在三个数值上完全相同，则判定为同一类个体；如果三个数值中任意一个不同，则判定为不同类个体。
想把所有可能的取值样式全部遍历，统计出每一种取值样式时的不同类个体的数量。

还请高手们多多指教！！！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言

    ID   A   B   C
1   P1 329 172 140
2   P2   a   b 138
3   P3   a 176 140
4   P4 329 176   c
5   P5 327   b   c
6   P6 329 172 138
7   P7 327 172 140
8   P8   a 172   c
9   P9 329   b 140
10 P10 327 176 138
11 P11 329 176 140
12 P12   a   b   c
13 P13 327 172 138
14 P14 329 172 140
15 P15 327 176   c
做了一个示例数据testdata.csv如上。

你可以直接用你的数据

1. library(dplyr)
   
2. 
   
3. testD <- read.csv("testdata.csv", header = T)
   
4. 
   
5. #编个函数
   
6. cntUniq <- function(x) {
   
7.   tmpD <- testD
   
8.   for (i in c(329, 327)) {
   
9.     for (j in c(172, 176)) {
   
10.       for (k in c(138, 140)) {
    
11.         tmpD[which(tmpD[, 2] == "a"), 2] <- i
    
12.         tmpD[which(tmpD[, 3] == "b"), 3] <- j
    
13.         tmpD[which(tmpD[, 4] == "c"), 4] <- k
    
14.         print(paste(
    
15.           "When a =",
    
16.           i,
    
17.           "b =",
    
18.           j,
    
19.           "c =",
    
20.           k,
    
21.           "unique N =",
    
22.           nrow(distinct(tmpD, A, B, C))
    
23.         ))
    
24.         tmpD <- testD
    
25.       }
    
26.     }
    
27.   }
    
28. }
    
29. 
    
30. #执行
    
31. suppressWarnings(cntUniq(testD))

复制代码

示例数据testdata执行循环后的结果如下：
[1] "When a = 329 b = 172 c = 138 unique N = 7"
[1] "When a = 329 b = 172 c = 140 unique N = 7"
[1] "When a = 329 b = 176 c = 138 unique N = 7"
[1] "When a = 329 b = 176 c = 140 unique N = 8"
[1] "When a = 327 b = 172 c = 138 unique N = 8"
[1] "When a = 327 b = 172 c = 140 unique N = 7"
[1] "When a = 327 b = 176 c = 138 unique N = 8"
[1] "When a = 327 b = 176 c = 140 unique N = 7"

示例数据
testdata.rar (200 Bytes) 本附件包括：

• testdata.csv

2021-3-6 16:17:19 上传

rurosezwz 发表于 2021-3-5 22:42
本人的数据如下：其中a 取值（327或329）；b 取值（172或176）；c 取值（138或140）个体1： 327  172    c个 ...

。。。。。。

非常感谢nolonger123

非常感谢nolonger123