Pode-se fazer o que a pergunta pede com o xtabs
depois de reformatar os dados de formato largo para formato longo.
Nesta solução row.names(df2)
dá as datas.
df2 <- reshape2::melt(df, id.vars = 'LOCATION')
df2 <- xtabs(value ~ variable + LOCATION, df2)
df2 <- as.data.frame.matrix(df2)
# EU28 JPN USA
#jan.1999 86.7 99.76086 90.87153
#fev.1999 85.5 99.76086 91.62469
#mar.1999 85.9 101.47350 91.56094
Para ter uma coluna com as datas poderá ser
df2 <- cbind.data.frame(Data = row.names(df2), df2)
row.names(df2) <- NULL
df2
# Data EU28 JPN USA
#1 jan.1999 86.7 99.76086 90.87153
#2 fev.1999 85.5 99.76086 91.62469
#3 mar.1999 85.9 101.47350 91.56094
Outro modo é com o pacote dplyr
. Na solução abaixo a primeira coluna é a coluna de datas.
library(tidyverse)
df %>%
gather(variable, value, -LOCATION) %>%
xtabs(formula = value ~ variable + LOCATION, data = .) %>%
as.data.frame.matrix() %>%
rownames_to_column(var = "Data")
# Data EU28 JPN USA
#1 fev.1999 85.5 99.76086 91.62469
#2 jan.1999 86.7 99.76086 90.87153
#3 mar.1999 85.9 101.47350 91.56094
Dados.
df <- read.table(text = "
LOCATION 'jan 1999' 'fev 1999' 'mar 1999'
EU28 86.70000 85.50000 85.90000
JPN 99.76086 99.76086 101.47350
USA 90.87153 91.62469 91.56094
", header = TRUE)