3
票
Accepted
まとめられたデータフレームを展開する
tidyr パッケージの fill 関数を使うと、 NA値をその列の直前の NA でない値で埋められます。
> library(dplyr)
> library(tidyr)
> df1 <- dplyr::data_frame(no1 = c(1L, 3L, 4L, 6L),
+ no2 = c(14L, 25L, ...
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
Rのパッケージのロードが失敗する
おそらく,以下の内容が今回の問題に近いと思います:
https://stackoverflow.com/questions/31717850/error-package-or-namespace-load-failed-for-ggplot2-and-for-data-table
エラーメッセージを読んだ限りでは,scalesパッケージの名前空間がうまく読み込めていないようですので,...
1
票
rowwiseからのmutate
purrr::pmap()を使うのが良いかと思います。
# irisデータの"Sepal"から始まる最大値をmutate
iris %>% mutate(max = select(., starts_with('Sepal')) %>% pmap(., ~ max(.)))
1
票
データフレームの複数列を一つの列で割る
とりあえず書いてみました。
こんな感じでどうでしょうか。
Python版
import pandas as pd
df = pd.DataFrame({'a1':[1,3,3],'a2':[1,4,6],'a3':[2,2,2],'b1':[4,1,9]})
df.join(df.loc[:, :'a3'].div(df['b1'], axis=0).add_prefix('d_'))
# ...
1
票
データフレームの複数列を一つの列で割る
pandasならこうでしょうか。
df1 = pd.DataFrame([[1,1,2,4],
[3,4,2,1],
[3,6,2,9]],
columns=["a1","a2","a3","b1"])
df2 = df1.div(df1["b1"], axis=0).drop("...
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(
...
1
票
Accepted
dplyr & ggplot2: リストに入った回帰分析の結果をまとめて図にする
lmRes_setはロング形式ではない、処理し難いデータとなっています。まずはこれをロング形式化し、以降の処理を行っていく形となります。
temp <- population %>%
group_by(setid) %>%
do(model1 = tidy(lm(score ~ age, data = .)),
model2 = tidy(lm(score ~ ...
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
データ前処理の関数化について
assign()したデータフレーム名 (namesではなくfilesの方を用いています) をeval(parse(text = ~))で処理する方法でやってみました。eval(parse(text = files)ではfilesの最後の要素のみしか読んでくれないため、lapply()でリストに出力しbind_rows()で全リスト要素を結合させ、最後にtblをdata.frame化しています (...
1
票
データ前処理の関数化について
回答として適切かわかりませんが単に連番からなるファイルを読み込むには、
foreachパッケージを使うと楽だったりします。foreach()関数の引数に.combineというものがあり、
これにrbind(行方向での結合)を指定し、対象のファイル名の番号の部分をiterationとして与えると勝手に結合してくれます。
パイプ演算子を使って読み込み後の処理を加えることも可能です。
library(...
1
票
Accepted
パネルデータの同一IDの標本の絞り込み
一度、欲しい形のIDとPANELのセットだけを含むテーブルを作成し、
それに結合してはどうでしょうか?
master <- data %>% group_by(ID) %>% dplyr::summarise(PANEL = max(PANEL))
dplyr::left_join(master, data, by = c("ID", "PANEL"))
1
票
Rで生成したデータの前処理
これは必要以上にネストを深くしすぎていると思います。
詳しくないのですが、p,q,r,sを引数に取ってモデルのAICを返す関数をつくって、それに次数の組を渡すようなやり方ではだめなのでしょうか? expand.grid()で変数の組み合わせをつくれます。わかりやすくfor文で書くならこんな感じです。
f <- function(p,q,r,s) {
...略...
fit <...
Only top scored, non community-wiki answers of a minimum length are eligible