次のタグが付いている話題の回答:

3

read_xlsxのpathをstr_cで作成するとファイルが存在しないエラーが起こる

質問者です。 SavePath自体の文字コードがR上ではUTF-8で処理されていて、ここにshift-jisが混じるとパスが内部で文字化けを起こしてエラーを出しているようでした。 解決策としてはiconvを使ってutf-8からshift-jisに変換したパスを使う、というものになります。 DirectoryName <- "D1" SavePath <- str_c("data/...
  • 41
3
Accepted

Rによる存在しない項目も含めたcsvファイルの結合

rbind()の代わりにdplyrパッケージのbind_rows()を用いることで解決できると思います 例 df1 <- data.frame(a = 1:2, b = 3:4, c = 5:6) df2 <- data.frame(a = 7, b = 8, d = 9) library(dplyr) bind_rows(df1, df2) # a b c d # ...
3
Accepted

時系列データでラグを取った場合のNAへの対処

そちらのブログを書いている者です。読んでいただいてありがとうございます。 新しい列を作りたくないのですが、その場合 はい、それで大丈夫です。 2.先頭行のNAをその次の行の値で埋めたいのですが 列名が非常に複雑で、番地を指定してループを回す方法で行きたいのですがうまくいきません。 ちょっとデータの形がよくわからないのですが、こういう感じでしょうか? ...
2
Accepted

dplyrを用いてデータフレーム内の型を統一したい

mutate_ifやmuatate_at関数を利用して、対象のデータ型あるいは変数を指定できます。 例のirisデータセットの数値が あらかじめ数値型としてセットされているので、一旦文字列型に変更しています str(iris) 'data.frame': 150 obs. of 5 variables: $ Sepal.Length: num 5.1 4.9 4.7 4.6 5 5....
2

dplyrを用いてデータフレーム内の型を統一したい

data.tableを使うことができると思います。 library(data.table) #test data DT <- data.frame(a = c("1", "2", "3"), b = 4:6, c = as.factor(7:9), stringsAsFactors = FALSE) ...
2
Accepted

dplyrのinner_joinで2つの条件で結合する際のエラー

バックエンドとしてdata.tableを用いる場合には、異なるキーによるjoinがまだサポートされていません。 Join with different keys · Issue #20 · hadley/dtplyr https://github.com/hadley/dtplyr/issues/20 このコードは、timeとtime1という異なるキーをjoinしようとしているのでError: ...
2

Rでデータフレームに対し横方向にmaxを取りたい

tidyverseでやるならこんな感じでしょうか。 library(tidyverse) iris[-5] %>% mutate(rn = row_number()) %>% pivot_longer(-rn) %>% group_by(rn) %>% mutate( max_idx = which.max(value), max_val =...
  • 31
2

ggplot2で凡例ラベルと色を変更する方法

scale_color_manual()の引数にlabelsを追加すればできます。 iris %>% ggplot(aes(x = Sepal.Length, y = Petal.Length, color = Species)) + geom_line() + scale_color_manual(values = c('red','blue','...
  • 116
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 %>% ...
  • 4,447
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> &...
  • 4,447
1
Accepted

modelsummaryのmodelplot()を使って文字化けしない図をpdfで出力するためにはどうすればよいですか?

theme() 関数で legend.text を設定して modelplot(model) に追加してみてはどうでしょうか。 library(ggplot2) library(modelsummary) model <- list( `モデル1` = lm(mpg ~ ., data = mtcars), `モデル2` = lm(Sepal.Length ~ ., data ...
  • 4,447
1

ggplot2で凡例とプロット色を一致させた状態で、凡例項目順を変更させたい。

ヘルプの values 引数の説明に The values will be matched in order (usually alphabetical) with the limits of the scale, or with breaks if provided. とあります. 色を指定する values を設定したならば, 対応する wks 列の値がなんであるのか breaks ...
1

ggplot2で図が表示されたりされなかったりする。

過去の事例を探ると、Mac におけるこのエラーは ggplot2 のバグである可能性があります。コメントによるとグリッド周りのバグのようで、2020 年 7 月現在まだ直っていないように見えます。 no applicable method for 'depth' applied to an object of class "NULL" https://github.com/...
  • 2.3万
1

rowwiseからのmutate

purrr::pmap()を使うのが良いかと思います。 # irisデータの"Sepal"から始まる最大値をmutate iris %>% mutate(max = select(., starts_with('Sepal')) %>% pmap(., ~ max(.)))
  • 116
1

Rでデータフレームに対し横方向にmaxを取りたい

purrr::pmap, base::pmax でもいけます。 library(tidyverse) # example data set.seed(1) N_COL <- 17 N_ROW <- 8 df_ <- runif(N_ROW * N_COL) %>% round(2) %>% matrix(N_ROW, N_COL) %>% as....
  • 111
1
Accepted

SASでのkeepはRやPythonではどのように書くのか

Pythonの場合は、次のように書けます。 df[['q1'] + ['q22_' + format(i, '02d') for i in range(1,16)] + ['q25', 'q28'] + ['q33_' + str(i) for i in range(3,22)]]
1

dplyrを用いてデータフレーム内の型を統一したい

dplyrパッケージのmutate_if()には直で否定演算子を入れる事はできませんが、function(col)を用いることで、FALSEなカラムのみに関数を適応、を簡潔に実現できます。 test <- iris %>% mutate_if(function(col) !is.numeric(col), as.numeric) head(test, n=2) # Sepal....
1
Accepted

tidyrで連番データにデータクリーニング

以下を試してみてください: library(dplyr) library(tidyr) df <- data.frame( v1 = 1:5, v2 = sample(11:20, 5), v3 = sample(21:30, 5), v4 = sample(31:40, 5) ) df %>% gather(key = person, value = ...
  • 311
1
Accepted

Rで連番のデータフレームを加工して連番で出力する

こういう感じのコードではどうでしょうか: # パッケージ読み込み library(tidyverse) # テスト用にdata.frame作成 # 以下のコードでdata1-data3というdata.frameができます data_list <- paste("data", 1:3, sep = "") for(i in 1:length(data_list)) { assign( ...
  • 311
1
Accepted

dplyr & ggplot2: リストに入った回帰分析の結果をまとめて図にする

lmRes_setはロング形式ではない、処理し難いデータとなっています。まずはこれをロング形式化し、以降の処理を行っていく形となります。 temp <- population %>% group_by(setid) %>% do(model1 = tidy(lm(score ~ age, data = .)), model2 = tidy(lm(score ~ ...
1

Rによる存在しない項目も含めたcsvファイルの結合

data.tableの構文によるこうすれば役に立つとおもいます: library(data.table) obj = rbindlist(lapply(lf, fread, select = c("ID", "hoge"))) なぜあとで除くつもり列を初めに含むか?こうしたらまず除いてから結合する。
1
Accepted

パネルデータの同一IDの標本の絞り込み

一度、欲しい形のIDとPANELのセットだけを含むテーブルを作成し、 それに結合してはどうでしょうか? master <- data %>% group_by(ID) %>% dplyr::summarise(PANEL = max(PANEL)) dplyr::left_join(master, data, by = c("ID", "PANEL"))
  • 61
1
Accepted

dplyrでmatrixをmutateしたい

そのエラーはおそらく、dplyrは関係なく文法上のミスです。$[]ではなく[]が正しいです。 fはこういう結果を返す関数ということであっていますか? f <- function(x,y,z,v) { m <- matrix(c(4.108074, 4.112013, 4.108074, 4.109363)) rownames(m) <- c("Akaike", "...

Only top scored, non community-wiki answers of a minimum length are eligible