- v1 <- c(1, 1, 2, 2, 3, 3, NA)
- v2 <- c("a", "a", "b", NA, "c", "d", "f")
- data <- data.frame(v1 = v1, v2 = v2)
- univ1 <- unique(data$v1)
- univ2 <- unique(data$v2)
- length(univ1[!is.na(univ1)])
- length(univ2[!is.na(univ2)])
- matv1 <- matrix(univ1[!is.na(univ1)],ncol = 1)
- matv2 <- matrix(univ2[!is.na(univ2)],ncol = 1)
- matv1
- matv2
这里不知道unique对缺失值怎么处理,如果有就简单些了。


雷达卡


京公网安备 11010802022788号







