Skip to main content
Acrescentados os dados.
Fonte Link
Rui Barradas
  • 19mil
  • 2
  • 14
  • 28

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)

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

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)
Acrescentado código para tornar a resposta mais completa.
Fonte Link
Rui Barradas
  • 19mil
  • 2
  • 14
  • 28

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

Pode-se fazer o que a pergunta pede com o xtabs depois de reformatar os dados de formato largo para formato longo.

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

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
Fonte Link
Rui Barradas
  • 19mil
  • 2
  • 14
  • 28

Pode-se fazer o que a pergunta pede com o xtabs depois de reformatar os dados de formato largo para formato longo.

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