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はフリーかつオープンソースなプログラミング言語とソフトウェア環境で、統計解析、生物情報学、グラフ描画などに用いられます。質問の際は再現性のある最小限の例を添えていただけると助かります。

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) = …
metropolis's user avatar
  • 6,705
0
承認済み

Rでのwebスクレイピングで、データが抽出できない

コメントにも書きましたが、ブラウザのデベロッパーツールで HTTP 通信の内容を確認してみると対象テーブルの中身(データ)は XMLHttpRequest によって取得されてレンダリングされています。具体的な URLは https://www.kyoiku.metro.tokyo.lg.jp/static/high_school/js/data.csv で、これを read.csv() でデータフ …
metropolis's user avatar
  • 6,705
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
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
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
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
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
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
承認済み

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

ifelse を使う場合。 df <- df %>% mutate(category = ifelse(sex == 1 & group == 3, 1, 0))
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
承認済み

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
承認済み

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
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
0

R ヒストグラム x軸が名義変数の場合の作図方法を知りたいです。

業種コード表(日本標準産業分類) から適当に業種を拾ってきてテスト用のデータを作成します。 df <- data.frame( "業種" = c( "銀行業", "飲食料品小売業", "電気業", "不動産取引業", "情報サービス業", "鉄道業", "水道業", "食料品製造業" ), "業種コード" = c( "62", "58", "33", "68", …
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

15 30 50 件 / ページ