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
# ...
- 362
3
票
Accepted
時系列データでラグを取った場合のNAへの対処
そちらのブログを書いている者です。読んでいただいてありがとうございます。
新しい列を作りたくないのですが、その場合
はい、それで大丈夫です。
2.先頭行のNAをその次の行の値で埋めたいのですが
列名が非常に複雑で、番地を指定してループを回す方法で行きたいのですがうまくいきません。
ちょっとデータの形がよくわからないのですが、こういう感じでしょうか?
...
- 441
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....
- 176
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)
...
- 215
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: ...
- 441
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 ...
- 346
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)]]
- 6,444
1
票
dplyrを用いてデータフレーム内の型を統一したい
dplyrパッケージのmutate_if()には直で否定演算子を入れる事はできませんが、function(col)を用いることで、FALSEなカラムのみに関数を適応、を簡潔に実現できます。
test <- iris %>% mutate_if(function(col) !is.numeric(col), as.numeric)
head(test, n=2)
# Sepal....
- 362
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 ~ ...
- 362
1
票
Rによる存在しない項目も含めたcsvファイルの結合
data.tableの構文によるこうすれば役に立つとおもいます:
library(data.table)
obj = rbindlist(lapply(lf, fread, select = c("ID", "hoge")))
なぜあとで除くつもり列を初めに含むか?こうしたらまず除いてから結合する。
- 215
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", "...
- 441
Only top scored, non community-wiki answers of a minimum length are eligible