Skip to main content
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
除外 -[タグ]
-リンゴ
高度な検索の詳細については、ヘルプ ページをご覧ください
でタグ付けされた検索結果
検索オプション answers only not deleted user 47127

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 > ?" …
metropolis's user avatar
  • 6,705
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. …
metropolis's user avatar
  • 6,705
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, …
metropolis's user avatar
  • 6,705
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 …
metropolis's user avatar
  • 6,705
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 …
metropolis's user avatar
  • 6,705
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 …
metropolis's user avatar
  • 6,705
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
  • 6,705
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 = …
metropolis's user avatar
  • 6,705
1

Rを使ってエクセルの列のデータをループさせオブジェクトに格納したい

データフレームをカラム毎に分解する必要はなく、以下の様に書くことができます。データフレームなので各カラムの要素数はデータフレームの行数に等しい、という前提です。問題があるとすれば測定値の欠損ですが、今回の場合は欠損なし、として回答しています。 bunsan1 <- data.frame( A = factor(rep(names(data), each=nrow(data))), y = …
metropolis's user avatar
  • 6,705
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 …
metropolis's user avatar
  • 6,705
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 …
metropolis's user avatar
  • 6,705
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 %>% …
metropolis's user avatar
  • 6,705
0
承認済み

複数の列の条件から新しい列を作成する方法

ifelse を使う場合。 df <- df %>% mutate(category = ifelse(sex == 1 & group == 3, 1, 0))
metropolis's user avatar
  • 6,705
0
承認済み

2条件のグループ別の平均値

suppressMessages(library(tidyverse)) df %>% split(list(.$group1, .$group2)) %>% Filter(function(x) nrow(x) > 0, .) %>% map(~ summary(.$age))
metropolis's user avatar
  • 6,705
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]) …
metropolis's user avatar
  • 6,705

15 30 50 件 / ページ