ホーム>source

これが私のデータです:

<前>ウィズウィズ

Qとkについて、L1×1、L2×2、L3×3、L4×4、L5×5を計算したい。

次の表を入手したい:

<前>ウィズウィズ

注:100行ありますが、これは質問の目的を示すためのサンプルの一部です。よろしくお願いします。

df1 <- read.table(text = " Group L1 L2 L3 L4 l5 Q 0% 10% 0% 70% 20% K 20% 20% 20% 10% 30%", header = TRUE)
あなたの答え
  • 解決した方法 # 1

    <前>ウィズウィズ

    データ

    <前>ウィズウィズ

  • 解決した方法 # 2

    最初に library(tidyverse) df %>% mutate(id = row_number()) %>% pivot_longer(L1:L5) %>% mutate(value = as.numeric(sub("%", "", value))/100 * 1:5) %>% group_by(id) %>% summarise(Mean = mean(value), SD = sd(value)) %>% bind_cols(df, .) # Group L1 L2 L3 L4 L5 id Mean SD # 1 Q 0% 10% 0% 70% 20% 1 0.80 1.1916375 # 2 K 20% 20% 20% 10% 30% 2 0.62 0.5118594 を削除できます  列から署名します。 df <- structure(list(Group = structure(2:1, .Label = c("K", "Q"), class = "factor"), L1 = structure(1:2, .Label = c("0%", "20%"), class = "factor"), L2 = structure(1:2, .Label = c("10%", "20%"), class = "factor"), L3 = structure(1:2, .Label = c("0%", "20%"), class = "factor"), L4 = structure(2:1, .Label = c("10%", "70%"), class = "factor"), L5 = structure(1:2, .Label = c("20%", "30%"), class = "factor")), class = "data.frame", row.names = c(NA, -2L)) を掛ける  によって "%"  行ごとの平均とsdを計算します。

    <前>ウィズウィズ

    データ

    <前>ウィズウィズ df1

関連記事

  • 前へ java - JPAクエリ:サブクエリをグループ化条件に結合する
  • 次へ PHPの現在のURL