Rでのデータの並べ替えについて

Question

Rについての質問です。
前にも同じような質問をして回答をいただいたのですが、うまくできなかったので今度は具体的に質問したいと思います。
今、このようなデータを持っています。
Country.Name|Country.Code|Indicator.Name|Indicator.code|X1960|X1961
|:--|:--:|--:|
|amrica|a|oby|oby|69|NA
|canada|b|oby|oby|NA|90
|china|c|oby|oby|77|45

このデータを下のように変えたいです。
|Country.Name|Country.Code|year|poverty_gap|
|:--|:--:|--:|
|america|a|1960|69|
|america|a|1961|NA|
|canada|b|1960|NA|
|canada|b|1961|90|
|china|c|1960|77|
|china|c|1961|45|

ただ、実際のデータはまあまあ量が多く、Country.Nameだけでも２００個ほど、また年代を表しているX１９６０の部分もX１９６０からX２０１７まであります。
poverty_gapとして表したい中にNAと表示される欠損値も多くあるため、それらのことも考慮したうえで、エラーなどが出ない方法を教えていただきたいです。
Indicator.NameとIndicator.Codeはあってもなくても構いません。

わかる方よろしくお願いいたします。

実際のデータはこんな感じです。

Answer 1

reshape2 というパッケージをインストールして、こんな感じでどうでしょうか。
持っているデータを mydata というデータフレーム、結果を result としています。

library(reshape2)
temp <- melt(mydata, id = 1:4, na.rm = FALSE, variable.name = "year", value.name = "poverty_gap")
temp$year <- substr(temp$year, 2, 5)
result <- temp[,c(1,2,5,6)]

Comments

[Azard.]

ありがとうございます！！
やっとできました！！

Answer 2

対象データフレームがtestdfという名前で存在するとして、

for(row in 1:nrow(testdf)){
  for(year in "Xなんちゃら"の列の番号が格納されたベクトル){
    y <- as.integer(substring(colnames(testdf)[year],2))
    print(c(testdf[row, "Country.Name"], testdf[row, "Country.Code"], y, testdf[row, year]))
  }
}

まあこんな感じでそれっぽい出力がなされると思います。

Comments

[Azard.]

回答ありがとうございます。
Xなんちゃらの列の番号が格納されたベクトルというのは、具体的にはどういう風に入力すればばいいのでしょうか。
上に実際のデータの画像を添付したので、ぜひよろしくお願いします。

[KojiDoi]

colnames()に対してsubstring()してgrep()すればできる。そろそろ自分でコードを書いてみることに挑戦した姿勢を示してみてはどうだろう。

[Azard.]

わからない自分が悪いのは大前提ですが、なんども試してみてできないから質問させていただいているんです。初心者なので専門用語を並べられてもわかりません。もう僕の投稿には反応していただかなくて結構です。あなたの対応の仕方は以前の時から感じていましたが、とてつもなく不快です。もっとわかりやすい方にお答えいただきます。

[KojiDoi]

何度も試してみてと言われても、その中身がわかりようがないのだから、こちらとしては「丸投げ」だなとしか判断のしようがないだろ。ま、後は勝手にしてください。「わかりやすい方」が出てきてくれるといいですね。