তিনটি বিকল্প সমাধান:
1) সাথে data.table:
আপনি প্যাকেজ melt
হিসাবে একই ফাংশন ব্যবহার করতে পারেন reshape2
(যা একটি বর্ধিত এবং উন্নত বাস্তবায়ন)। melt
থেকে data.table
আরও বেশি পরামিতি রয়েছে যা থেকে melt
ফাংশন reshape2
। আপনি উদাহরণস্বরূপ চলক-কলামের নামও নির্দিষ্ট করতে পারেন:
library(data.table)
long <- melt(setDT(wide), id.vars = c("Code","Country"), variable.name = "year")
যা দেয়:
> long
Code Country year value
1: AFG Afghanistan 1950 20,249
2: ALB Albania 1950 8,097
3: AFG Afghanistan 1951 21,352
4: ALB Albania 1951 8,986
5: AFG Afghanistan 1952 22,532
6: ALB Albania 1952 10,058
7: AFG Afghanistan 1953 23,557
8: ALB Albania 1953 11,123
9: AFG Afghanistan 1954 24,555
10: ALB Albania 1954 12,246
কিছু বিকল্প স্বরলিপি:
melt(setDT(wide), id.vars = 1:2, variable.name = "year")
melt(setDT(wide), measure.vars = 3:7, variable.name = "year")
melt(setDT(wide), measure.vars = as.character(1950:1954), variable.name = "year")
2) সাথে tidyr:
library(tidyr)
long <- wide %>% gather(year, value, -c(Code, Country))
কিছু বিকল্প স্বরলিপি:
wide %>% gather(year, value, -Code, -Country)
wide %>% gather(year, value, -1:-2)
wide %>% gather(year, value, -(1:2))
wide %>% gather(year, value, -1, -2)
wide %>% gather(year, value, 3:7)
wide %>% gather(year, value, `1950`:`1954`)
3) সাথে reshape2:
library(reshape2)
long <- melt(wide, id.vars = c("Code", "Country"))
কিছু বিকল্প স্বীকৃতি যা একই ফলাফল দেয়:
# you can also define the id-variables by column number
melt(wide, id.vars = 1:2)
# as an alternative you can also specify the measure-variables
# all other variables will then be used as id-variables
melt(wide, measure.vars = 3:7)
melt(wide, measure.vars = as.character(1950:1954))
মন্তব্য:
- reshape2অবসরপ্রাপ্ত এটি CRAN এ রাখার জন্য প্রয়োজনীয় পরিবর্তনগুলি করা হবে। ( উত্স )
- আপনি যদি
NA
মানগুলি বাদ দিতে চান তবে na.rm = TRUE
আপনি ফাংশনগুলির melt
পাশাপাশি যোগ করতে পারেন gather
।
ডেটাতে আর একটি সমস্যা হ'ল মানগুলি আর দ্বারা অক্ষর-মান হিসাবে পড়বে ( ,
সংখ্যাগুলির ফলাফল হিসাবে )। আপনি এটি দিয়ে gsub
এবং এটি মেরামত করতে পারেন as.numeric
:
long$value <- as.numeric(gsub(",", "", long$value))
বা সরাসরি সাথে data.table
বা dplyr
:
# data.table
long <- melt(setDT(wide),
id.vars = c("Code","Country"),
variable.name = "year")[, value := as.numeric(gsub(",", "", value))]
# tidyr and dplyr
long <- wide %>% gather(year, value, -c(Code,Country)) %>%
mutate(value = as.numeric(gsub(",", "", value)))
ডেটা:
wide <- read.table(text="Code Country 1950 1951 1952 1953 1954
AFG Afghanistan 20,249 21,352 22,532 23,557 24,555
ALB Albania 8,097 8,986 10,058 11,123 12,246", header=TRUE, check.names=FALSE)