次のタグが付いている話題の回答:

2
Accepted

Rを使用して列の合計値を計算、各列の合計値が100以上の列のみを抽出する方法

tidyverse を使う場合。 suppressMessages(library(tidyverse)) df <- data.frame(id=1:3, score1 = c(200, 30, 100), score2=c(0, 30, 10), score3=c(90, 40, 10), score4=c(200, 220, 300)) df2 <- df %>% ...
metropolis's user avatar
  • 4,975
2

Rで0.17 * 10000 == 1700がFALSEになる理由と解消法

help メッセージで言及されています。 $ R R version 4.2.2 Patched (2022-11-10 r83330) -- "Innocent and Trusting" Copyright (C) 2022 The R Foundation for Statistical Computing > ?"==" ...
metropolis's user avatar
  • 4,975
1

PythonまたはRでクロス集計をしたい

既に解決済みですが,御参考として R の記述例(tidyverse パッケージを使用)を示します。 手順としては,count() と pivot_wider() を使って設問2の全体集計と2個のクロス集計(性別\設問2,設問1\設問2)を作り,これらを縦に結合してから「合計」列を追加しました。また,最初に df の各列を factor() で変換しているのは levels ...
Delft View's user avatar
1

PythonまたはRでクロス集計をしたい

性別と設問1を別個に集計して結合します。 import pandas as pd # CSVファイルの読み込み df = pd.read_csv('data.csv') # クロス集計 cross_tab = pd.concat([ df.pivot_table(index='性別', columns='設問2', aggfunc='size', fill_value=0), ...
metropolis's user avatar
  • 4,975
1

Boxplotを条件ごとに作成する。

既に解決済みかもしれませんが,Day についても文字列で指定することで御希望の描画ができそうです。 ## Day = c(rep(1, 20), rep(2, 20), rep(3, 20), rep(1, 20), rep(2, 20), rep(3, 20)) Day = c(rep('1', 20), rep('2', 20), rep('3', 20), rep('1', ...
Delft View's user avatar
1

Boxplotを条件ごとに作成する。

「Dayごとに箱ひげ図にする」ためには ~ Day を facet_wrap() に渡します pacman::p_load(tidyverse) pacman::p_load(easystats) #サンプルデータの作成 A_X_value <- as.numeric(rpois(30, lambda = 10)) A_Y_value <- as.numeric(rpois(30, ...
taiyodayo's user avatar
  • 431
1
Accepted

条件A、条件Bの数値を元に条件Cを除したい

> library(tidyverse) > testDF %>% group_by(Sample) %>% mutate(Norm_value = Value / Value[Day==0]) # A tibble: 6 × 4 # Groups: Sample [2] Sample Day Value Norm_value <chr> &...
metropolis's user avatar
  • 4,975
1

Rにてtidyverseが読み込めません

ずいぶん古いバージョンのRをお使いのようですが、問題が無ければ最新版を試してみてはいかがでしょうか? またRStudioをお使いでしたらrocker/verseのdockerコンテナを使うと環境依存の問題を大幅に減らす事が出来ます。
taiyodayo's user avatar
  • 431
1

Rでlmeを用いた解析をする際のエラー;invalid type (list) for variable 'data'

下記にコードと出力を示しますが,lme4 パッケージに含まれる sleepstudy dataset を解析してもエラーは再現します。 library(lme4) library(nlme) data <- sleepstudy head(data) model1 <- lme(Reaction ~ Days, random=~1|data$Subject, data) ...
Delft View's user avatar

Only top scored, non community-wiki answers of a minimum length are eligible