r - R中的数据框列替换和汇总

Question

我有数据框

names <- c("doe.jane", "doe.john", "smith.bob")
number <- c(3, 5, 1)
site <- c("A1", "A1", "A2")
df <- as.data.frame(matrix(c(site, names, number), 3))
names(df) <- c("site", "names", "number")

我只需要用姓氏替换全名，然后折叠数据框，因此输出为

names <- c("doe", "smith")
number <- c(8, 1)
site <- c("A1", "A2")
df <- as.data.frame(matrix(c(site, names, number), 2))
names(df) <- c("site", "names", "number")

Answer 1

你想做这样的事情:

last.names <- function(names) {
    names <- as.character(names)
    split.names <- strsplit(names, split='.', fixed=TRUE)
    sapply(split.names, function(x) x[1])
}

df <- within(df, names <- last.names(names))
df <- with(df, aggregate(as.numeric(number), by=list(site=site, names=names), sum))

我会指出您对 df 的定义有点误导。你真的只需要说 df <- data.frame(names, number, site) .你这样做的方式导致三个 factor生成的 data.frame 中的列.