Обрезка и заполнение кадра данных в цикле

Question

Я пытаюсь скопировать данные из одного фрейма данных в другой фрейм данных, используя strtrim в цикле.

df <- data.frame(a = c("NEW0057-1", "NEW0058-2", "NEW0059-3", "NEW0060-4")) 
trunc <- data.frame(matrix(nrow=nrow(df), ncol=1)) 
names(trunc) <- "b" 

for (i in nrow(df)){   
     trunc[i,] <- strtrim(df[i,], 7)    
} 

head(trunc) 

Над дает:

 b 
1 <NA> 
2 <NA> 
3 <NA> 
4 NEW0060 

Однако я ищу следующий результат:

 b 
1 NEW0057 
2 NEW0058 
3 NEW0059 
4 NEW0060 

thread here говорит, что предварительное выделение кадра данных не рекомендуется. Я думаю, что это больше для эффективности и не должно вызывать тип результата, который я получаю выше. В любом случае я попытался использовать список в качестве предложения и получил аналогичный результат:

df <- data.frame(a = c("NEW0057-1", "NEW0058-2", "NEW0059-3", "NEW0060-4")) 
trunc <- list() 
for (i in nrow(df)){ 
     trunc[[i]] <- strtrim(df[i,], 7) 
} 
df = do.call("rbind", trunc) 

Я ценю ваше время.

R версия 3.0.3

Answer 1

Как уже упоминалось в комментариях, нет необходимости в цикле здесь.

Кроме того, это, кажется, как хороший случай, когда within можно использовать

> (trunc <- within(df, { b <- strtrim(a, 7); rm(a) })) 
#   b 
# 1 NEW0057 
# 2 NEW0058 
# 3 NEW0059 
# 4 NEW0060