Search type | Search syntax |
---|---|
タグ | [タグ] |
完全一致 | "ここの単語" |
作成者 |
user:1234 user:me (あなたの) |
スコア |
score:3 (3+) score:0 (なし) |
回答 |
answers:3 (3+) answers:0 (なし) isaccepted:yes hasaccepted:no inquestion:1234 |
閲覧数 | views:250 |
コード | code:"if (foo != bar)" |
セクション |
title:リンゴ body:"リンゴ オレンジ" |
URL | url:"*.example.com" |
セーブ | in:saves |
状態 |
closed:yes duplicate:no migrated:no wiki:no |
種類 |
is:question is:answer |
除外 |
-[タグ] -リンゴ |
高度な検索の詳細については、ヘルプ ページをご覧ください。 |
Rはフリーかつオープンソースなプログラミング言語とソフトウェア環境で、統計解析、生物情報学、グラフ描画などに用いられます。質問の際は再現性のある最小限の例を添えていただけると助かります。
3
票
Rで0.17 * 10000 == 1700がFALSEになる理由と解消法
$ R
R version 4.2.2 Patched (2022-11-10 r83330) -- "Innocent and Trusting"
Copyright (C) 2022 The R Foundation for Statistical Computing
> ?" …
2
票
承認済み
R 文字型データから日時データへの変換
$ R
R version 4.1.2 (2021-11-01) -- "Bird Hippie"
> strptime("2022.04.30 午前 5:55", format="%Y.%m.%d %p %I:%M", tz="JST")
[1] "2022-04-30 05:55:00 JST"
> strptime("2022.04.30 午後 5:55", format="%Y.%m. …
2
票
承認済み
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 %>% select(id, …
1
票
完全パネルデータの作成にあたり、観測期間(年次データ)のすべてが揃った個体のデータのみを、新しいデータフレームに保存したいです
標準関数
dfx <- do.call('rbind',
c(by(df, df$name, function(x) {
f <- x$year %in% 1999:2001
if (sum(f)==3) x[f,]
}), make.row.names=F))
print(dfx)
#
name year
1 A社 1999
2 A社 2000
3 …
1
票
データフレームからあるベクトルの要素を含む行だけを抜き出し、新しいデータフレームを作成したい
Base R
df <- data.frame(
"name" = c(rep("A社", 5), rep("B社", 3)),
"year" = c(1999:2003, 1999:2001),
"price" = c(200, 202, 199, 400, 207, 300, 500, 201)
)
select_price <- c(199, 200, 201, 202, 207 …
1
票
承認済み
条件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> <dbl> <dbl> <d …
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
票
承認済み
modelsummaryのmodelplot()を使って文字化けしない図をpdfで出力するためにはどうすればよいですか?
theme() 関数で legend.text を設定して modelplot(model) に追加してみてはどうでしょうか。
library(ggplot2)
library(modelsummary)
model <-
list(
`モデル1` = lm(mpg ~ ., data = mtcars),
`モデル2` = lm(Sepal.Length ~ ., data = …
1
票
Rを使ってエクセルの列のデータをループさせオブジェクトに格納したい
データフレームをカラム毎に分解する必要はなく、以下の様に書くことができます。データフレームなので各カラムの要素数はデータフレームの行数に等しい、という前提です。問題があるとすれば測定値の欠損ですが、今回の場合は欠損なし、として回答しています。
bunsan1 <- data.frame(
A = factor(rep(names(data), each=nrow(data))),
y = …
0
票
承認済み
R言語で土日祝日を除いた日数の計算結果をデータフレームへ
library(dplyr)
p1 <- c(1:2)
p2 <- as.Date(c("2013-01-01","2013-01-22"))
p3 <- as.Date(c("2013-01-11","2013-01-30"))
df2 <- data_frame(p1,p2,p3)
names(df2) <- c("no", "st_date", "ed_date")
# 政府のc …
0
票
承認済み
Rを使用して列の値を他の列にあるNAに置き換えたい
dplyr を使う場合。
suppressMessages(library(dplyr))
df <- data.frame(
ID = 1:5, s1 = c(2, 3, 2, NA, NA), s2 = c(1, 1, 3, 2, 2)
)
df <- df %>% mutate(s2 = replace(s2, is.na(s1), NA))
df
#
ID s1 s2
1 …
0
票
承認済み
Rstudioでグループ別のglmを教えてください
dplyr を使う場合。
suppressMessages(library(dplyr))
df <- data.frame(
ID = 1:4, age = c(43, 62, 54, 55), sex = c(0, 1, 1, 0),
BP = c(120, 130, 132, 110), BMI = c(21, 26, 23, 19)
)
result <- df %>% …
0
票
承認済み
複数の列の条件から新しい列を作成する方法
ifelse を使う場合。
df <- df %>% mutate(category = ifelse(sex == 1 & group == 3, 1, 0))
0
票
承認済み
2条件のグループ別の平均値
suppressMessages(library(tidyverse))
df %>% split(list(.$group1, .$group2)) %>% Filter(function(x) nrow(x) > 0, .) %>% map(~ summary(.$age))
0
票
forで回して作成した複数のヒストグラムにサブタイトルを追加したい
ベクタにすればよいでしょう。
df <- read.csv("ID_Name.txt", header = FALSE)
subtitle <- df[,2]
:
for (i in 1:n){
:
hist(data[,2],main = "",xlab = "あああ",ylab = "いいい",sub = subtitle[i])
…