名前を付けないベクトルを追加する

Question

Rスタジオでは、私は国名のベクトルを作成したいと考えています。これらは

"Australia Australia ..." 

xはちょうどロシア、国36の名前を与える要因の名前を与え、国は彼らが順番にもありません

1,1,...,2,2,...,4,4.. etc. 

されて終わるの列1にCountryvecを設定し、私のデータで囲まれています3は42と43の間で終了します。どのようにして数字を要因にするのですか？

x <- rep(levels(countryvec)[countryvec][j], 25) 

またはその前のループにベクトルを変換する：あなたはレベルを取得する必要が

gdppc=read.xlsx("H:/dissertation/ALL/YAS.xlsx",sheetIndex = 1,startRow = 1) 
countryvec=gdppc[,1] 
country=c() 
for (j in 1:43){ 
    x=rep(countryvec[j],25) 
    country=append(country,x) 
} 

Answer 1

はおそらくループ内にコードを変更する必要があります

set.seed(7) 

v <- factor(letters[rbinom(20, 10, .5)]) 
> c(v) 
[1] 6 4 2 2 3 5 3 6 2 4 2 3 5 2 4 2 4 1 6 3 

> levels(v)[v] 
[1] "h" "e" "c" "c" "d" "f" "d" "h" "c" "e" "c" "d" "f" "c" "e" "c" "e" "a" "h" "d" 

属性：

countryvec <- levels(countryvec)[countryvec]