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はフリーかつオープンソースなプログラミング言語とソフトウェア環境で、統計解析、生物情報学、グラフ描画などに用いられます。質問の際は再現性のある最小限の例を添えていただけると助かります。
0
票
承認済み
dplyr::mutate()におけるif_else()で, "size" に関するエラー
dplyr::lag() を使います。
ex.csv
name value
hoge 5
huga 7
piyo 4
puka 2
hoge 10
huga 15
piyo 20
puka 30
Script
d2 <- d %>%
mutate(num = if_else(row_number() > 1 & lag(name) = …
0
票
承認済み
Rでのwebスクレイピングで、データが抽出できない
コメントにも書きましたが、ブラウザのデベロッパーツールで HTTP 通信の内容を確認してみると対象テーブルの中身(データ)は XMLHttpRequest によって取得されてレンダリングされています。具体的な URLは https://www.kyoiku.metro.tokyo.lg.jp/static/high_school/js/data.csv で、これを read.csv() でデータフ …
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
> ?" …
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),
…
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])
…
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 …
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, …
0
票
承認済み
2条件のグループ別の平均値
suppressMessages(library(tidyverse))
df %>% split(list(.$group1, .$group2)) %>% Filter(function(x) nrow(x) > 0, .) %>% map(~ summary(.$age))
0
票
承認済み
複数の列の条件から新しい列を作成する方法
ifelse を使う場合。
df <- df %>% mutate(category = ifelse(sex == 1 & group == 3, 1, 0))
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
票
承認済み
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
票
承認済み
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 …
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. …
0
票
R ヒストグラム x軸が名義変数の場合の作図方法を知りたいです。
業種コード表(日本標準産業分類) から適当に業種を拾ってきてテスト用のデータを作成します。
df <- data.frame(
"業種" = c(
"銀行業", "飲食料品小売業", "電気業", "不動産取引業",
"情報サービス業", "鉄道業", "水道業", "食料品製造業"
),
"業種コード" = c(
"62", "58", "33", "68", …
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 …