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 %>% ...
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
> ?"=="
...
1
票
PythonまたはRでクロス集計をしたい
既に解決済みですが,御参考として R の記述例(tidyverse パッケージを使用)を示します。
手順としては,count() と pivot_wider() を使って設問2の全体集計と2個のクロス集計(性別\設問2,設問1\設問2)を作り,これらを縦に結合してから「合計」列を追加しました。また,最初に df の各列を factor() で変換しているのは levels ...
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),
...
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', ...
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, ...
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> &...
1
票
Rにてtidyverseが読み込めません
ずいぶん古いバージョンのRをお使いのようですが、問題が無ければ最新版を試してみてはいかがでしょうか?
またRStudioをお使いでしたらrocker/verseのdockerコンテナを使うと環境依存の問題を大幅に減らす事が出来ます。
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)
...
Only top scored, non community-wiki answers of a minimum length are eligible