※ 引述《tony1331 (BLUE)》之铭言：
: [问题类型]:
: 我想用R 做某件事情，但是我不知道要怎么用R 写出来
: [软件熟悉度]:
: S写过程式，R 是我的第一次
: [问题叙述]:
: 01:00 a s j e j e l d k
: 02:00 d w e w g w
: 03:00 l e f w e g
: 04:00 e r s
: ..
: ..
: ..
: 一个data.frame 时间后面号码，每列不一
: 有重复
: (1) 请问大家要怎么让每列的号码没有重附，用unique好像不行
不知道你怎么存那些character，先假设你用字串把它们combine再一起
DF <- data.frame(time = c("01:00", "02:00", "03:00", "04:00", "05:00"),
characters = c("asjejeldk", "dwewgw", "lefweg", "ers",
"qaqasdfd"),
stringsAsFactors = FALSE)
transform(DF, characters = lapply(strsplit(characters, ""), unique))
# time characters
# 1 01:00 a, s, j, e, l, d, k
# 2 02:00 d, w, e, g
# 3 03:00 l, e, f, w, g
# 4 04:00 e, r, s
# 5 05:00 q, a, s, d, f
: (2) 有什么方法让a b c ...这些号码可以整理成在哪个时间出现几次
是unique后取？ 这样就是每个都一次阿，下面用没unique方式做：
DF3 <- transform(DF, characters = strsplit(characters, ""))
DF4 <- data.frame(time = unlist(mapply(function(x, y) rep(x, length(y)),
DF3$time, DF3$characters)),
character = unlist(DF3$characters), stringsAsFactors = FALSE)
aggregate(rep(1, nrow(DF4))~ character + time, DF4, length)
# 前五笔
# character time rep(1, nrow(DF4))
# 1 a 01:00 1
# 2 d 01:00 1
# 3 e 01:00 2
# 4 j 01:00 2
# 5 k 01:00 1
: 恳请教导，感谢~
: