R:select()エラーについて

Question

ライブラリのインストール（初回のみ）

library("CausalImpact")

CigarデータをCausalImpact用に整形

目的変数としてカリフォルニア州の売上 だけ抜き出す

Y <- Cigar %>% filter(state == 5) %>% pull(sales)

共変量として他の州の売上を抜き出し整形

X_sales1 <- Cigar %>%

• filter(state != 5) %>%
• select(state, year, sales)%>%
• spread(state,sales)

select(., state, year, sales) でエラー:
使われていない引数 (state, year, sales)

エラーの原因がわかりません。わかる方いればお教えいただければ幸いです。

Comments

[aokikenichi]

不勉強でCigarデータというものがわかりません
どういうでーたなのでしょうか
エラー通り state, year, sales がないのではないでしょうか

Answer 1

調べまして Ecdat ライブラリの Cigar データかと思いましたのでそれで試しました。

提示いただいたコードのままで正しく実行できました。
Cigarオブジェクトの内容が途中で変わったりしてませんでしょうか。
処理直前で確認されるとよろしいかと思います。

念の為私が再現してみましたコード全文

library(Ecdat)
library(dplyr)
library(tidyr)

data(Cigar)

Y <- Cigar %>% filter(state == 5) %>% pull(sales)

X_sales1 <- Cigar %>%
   filter(state != 5) %>% 
   select(state, year, sales)%>%
   spread(state,sales)

大きいので略しますが X_sales1 は30行46列 のデータフレームとなっております。