Skip to main content

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

3

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

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

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

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

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 # ...
cuttlefish44's user avatar
2
承認済み

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: ...
yutannihilation's user avatar
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 =...
atusy's user avatar
  • 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','...
kenken's user avatar
  • 116
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 %>% ...
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> &...
metropolis's user avatar
  • 6,705
1

Rにてtidyverseが読み込めません

ずいぶん古いバージョンのRをお使いのようですが、問題が無ければ最新版を試してみてはいかがでしょうか? またRStudioをお使いでしたらrocker/verseのdockerコンテナを使うと環境依存の問題を大幅に減らす事が出来ます。
taiyodayo's user avatar
  • 441
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

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 ...
ill-identified's user avatar
1

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

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

rowwiseからのmutate

purrr::pmap()を使うのが良いかと思います。 # irisデータの"Sepal"から始まる最大値をmutate iris %>% mutate(max = select(., starts_with('Sepal')) %>% pmap(., ~ max(.)))
kenken's user avatar
  • 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....
Tob's user avatar
  • 111
1
承認済み

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)]]
Yasuhiro Niji's user avatar
1
承認済み

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 = ...
kazutan's user avatar
  • 311
1
承認済み

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

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

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

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

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

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

無効化に投票