[問題] (救回) loop 中 cell 內細格等於變項

[celestialgod (天)]

相關作者訊息已經遮蔽

想要請問一下

我現在想要進行

c[1]=a1 (已知變項)
.
.
.
c[8]=a8

以下是我寫得loop

a1=2
a2=3
a3=4
a4=5
a5=6
a6=7
a7=8
a8=9
c=1:8
t=data.frame(c)
attach(t)
for(i in 1:8)  c[i] <- (paste('a',i,sep=""))

但沒想到c都變成文字的a1 而非變項內容


我想要的是如何把一些規律的變項 變成一個data.frame

這樣我才可以對這個data.frame進行觀看分佈狀況 就是常用的bootstrap 的最後的步驟

不知道要怎樣修改我原本的code

或是有更快或簡單的code 可以把a1-a8 變成一個data 呢？

謝謝

--
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1421623009.A.29A.html
推 celestialgod: sapply(1:8, function(i)get(paste0("a". i)))
→ obarisk: http://r4stats.com/books/r4sas-spss/
→ obarisk: 我覺得sas和r的程式思維差很多，要把sas的思維強制加到r
→ obarisk: 上，是有可能的，只是不確定有沒有人這樣做
→ obarisk: 也許你可以找那本書看看，或者從更基礎的r程式思維學起
→ obarisk: 否則學起來會很累
→ obarisk: 我試著用以下程式回答你的問題
→ obarisk: 如果你的資料可以化為2維的陣列，那data.frame是最簡單的
→ obarisk: 若是每筆資料都是data.frame，那就會用到list
→ obarisk: ## 產生資料
→ obarisk: da <- matrix(0, 100, 8)
→ obarisk: ## 每欄都是常態分配亂數
→ obarisk: for(i in 1:ncol(da)){da[, i]<-rnorm(nrow(da, 0, 1))}
→ obarisk: colnames(da) <- paste0('var', 1:ncol(da))
→ obarisk: ## 要對每個欄做某些事情
→ obarisk: for( i in 1:ncol(da) ){
→ obarisk:  do_something(da[, i])
→ obarisk: }
→ obarisk: ## 沒有用到欄位名稱
→ obarisk: ## 如果需要存下for迴圈內的資料
→ obarisk: l1 <- list()
→ obarisk: for( i in 1:ncol(da) ){
→ obarisk:   l1[[i]] <- do_something(da[, i])
→ obarisk: }
→ obarisk: #########################
→ obarisk: #########################
→ obarisk: 如果要用你原來的方式硬解問題，就會牽涉到NSE(
→ obarisk: Non-standard evaluation)，學這個要花不少心力
→ obarisk: 至少要搞懂變數和字串在r中的差別，配合assign
→ obarisk: eval和parse這些函式
→ obarisk: 例如
→ obarisk: ## 定義一個函式處理eval(parse(text='string'))
→ obarisk: EV <- function(x) { eval(parse(text=x)) }
→ obarisk: ## 產生變數
→ obarisk: vars <- paste0('var', 1:8)
→ obarisk: for( i in 1:length(vars) ){
→ obarisk: assign(vars[i], anykindofdataInR)
→ obarisk: }
→ obarisk: ## dosomething on vars
→ obarisk: for( i in 1:length(vars) ){
→ obarisk:   do_something(EV(vars[i]))
→ obarisk: }
→ obarisk: ##################
→ obarisk: 只是上面這個方式很不像r就是了
推 andrew43: 像樓上這樣寫法也有可能大幅降低運算效率。也容易犯錯。
推 andrew43: 建議原po不要永久地考慮這種方式。換成R風格才容易長久
推 andrew43: 使用下去。
推 andrew43: 否則eval()個不停，會累死自己。
→ ******: 本以為r 更有彈性一些 但好像思維差太多了 感謝推薦書籍
→ ******: 最近有機會會詳讀 謝謝以上建議
→ ******: 剛好學校資料庫有買這個電子書庫
→ obarisk:  r 已經超級有彈性了...
→ gsuper: get() 好像不錯, 比邪惡的貼上短些
→ Wush978: 既然要這樣寫loop, 就應該把a1 ~ a8 放到一個list中
→ Wush978: 建議把list學會，然後學一下environment
→ Wush978: 解這種問題就再也不用eval + parse硬幹了
推 celestialgod: 改變儲存資料的方式，才是活用R的方式。
→ celestialgod: 直接讀入資料為data. frame，不要事後用迴圈處理。
推 obarisk: list和 env大好
※ 編輯: celestialgod (36.233.51.224), 11/20/2016 14:57:44