3
票
read_xlsxのpathをstr_cで作成するとファイルが存在しないエラーが起こる
質問者です。
SavePath自体の文字コードがR上ではUTF-8で処理されていて、ここにshift-jisが混じるとパスが内部で文字化けを起こしてエラーを出しているようでした。
解決策としてはiconvを使ってutf-8からshift-jisに変換したパスを使う、というものになります。
DirectoryName <- "D1"
SavePath <- str_c("data/...
3
票
承認済み
時系列データでラグを取った場合のNAへの対処
そちらのブログを書いている者です。読んでいただいてありがとうございます。
新しい列を作りたくないのですが、その場合
はい、それで大丈夫です。
2.先頭行のNAをその次の行の値で埋めたいのですが
列名が非常に複雑で、番地を指定してループを回す方法で行きたいのですがうまくいきません。
ちょっとデータの形がよくわからないのですが、こういう感じでしょうか?
...
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
# ...
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: ...
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 =...
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','...
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 %>% ...
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> &...
1
票
Rにてtidyverseが読み込めません
ずいぶん古いバージョンのRをお使いのようですが、問題が無ければ最新版を試してみてはいかがでしょうか?
またRStudioをお使いでしたらrocker/verseのdockerコンテナを使うと環境依存の問題を大幅に減らす事が出来ます。
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 ...
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/...
1
票
rowwiseからのmutate
purrr::pmap()を使うのが良いかと思います。
# irisデータの"Sepal"から始まる最大値をmutate
iris %>% mutate(max = select(., starts_with('Sepal')) %>% pmap(., ~ max(.)))
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....
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)]]
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 = ...
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(
...
1
票
承認済み
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")))
なぜあとで除くつもり列を初めに含むか?こうしたらまず除いてから結合する。
無効化に投票