Início / coding / Perguntas / 77957492
Accepted
Gabriel G.
Asked: 2024-02-08 03:41:42 +0800 CST

Fazendo rowmean em colunas de lista em R

  • 772

Eu tenho o seguinte dataframe:

df=read.table(text="A     B      C      D
1,2   .      1,3    1,4
2,1   1,1    1,1    2,3  ", header=TRUE)

A     B      C      D
1,2   .      1,3    1,4
2,1   1,1    1,1    2,3

Quero fazer rowmeans depois de dividir os valores, então o primeiro valor antes da vírgula em todas as linhas, depois o segundo etc. Os resultados devem ser:

Value_1_mean         Value_2_mean
1 (3/3)              3 (9/3)
1.5 (6/4)            1.5 (6/4)

Os parênteses existem apenas para mostrar de onde vieram os meios e não são necessários.

Ou

Value_1_mean                          Value_2_mean
First value of comma in first row     Second value of comma in first row
First value of comma in second row    Second value of comma in second row

Eu tentei alguns códigos, mas acho que estou longe.

3 respostas

  1. Aqui está uma data.tableabordagem

    library(data.table)
# set to data.table and melt to long format
df.long <- melt(setDT(df, keep.rownames = TRUE), id.vars = "rn")
# split to numeric values
df.long[, c("val1", "val2") := lapply(tstrsplit(value, ","), as.numeric)]
# summarise mean by rownumber column (rn)
df.long[, lapply(.SD, mean, na.rm = TRUE), by = .(rn), .SDcols = c("val1", "val2")]
#    rn val1 val2
# 1:  1  1.0  3.0
# 2:  2  1.5  1.5
    • 3
  2. Best Answer

    na base R:

    n <- paste0('value_',1:2,'_mean')
t(apply(df, 1,\(x) colMeans(read.table(text=x, sep=',', comment.char = '.', col.names = n))))

     value_1_mean value_2_mean
[1,]          1.0          3.0
[2,]          1.5          1.5

    read.table(text=unlist(df), sep = ',',
            na.strings = '.', fill = TRUE, col.names = n) |>
   cbind(rn= rownames(df))|>
   aggregate(.~rn, mean, na.action = identity, na.rm = TRUE)

  rn value_1_mean value_2_mean
1  1          1.0          3.0
2  2          1.5          1.5
    • 3

  3. Pode haver abordagens mais elegantes, mas na base R você pode usar alguma regex para extrair os números antes e depois da vírgula, depois sume nchar(para o denominador). Neste contexto, ajuda criar uma função auxiliar e depois passar por apply:

    sumFun <- function(x){
  left <- sum(as.numeric(gsub("^(.*?),.*|\\.", "\\1", x)), na.rm = TRUE) / 
    sum(nchar(gsub("\\d+.|\\.", "", x)))
  right <- sum(as.numeric(gsub(".*?,(\\d+).*|\\.", "\\1", x)), na.rm = TRUE) / 
    sum(nchar(gsub("\\d+.|\\.", "", x)))
  
    cbind(left, right)
}

t(apply(df, 1, sumFun))


#      [,1] [,2]
# [1,]  1.0  3.0
# [2,]  1.5  1.5
    • 2

relate perguntas