Korrelasjon i en loop

[bjørn324]

Finmark Troms Nordland Nord-Trondelag Sor-Trondelag More og Romsdal Sogn og Fjordane  Pris pr.kilo

Jan    0.08  0.13     0.11           0.12          0.17            0.13             0.25      0.25              0.14        71.69

Feb    0.07  0.15     0.17           0.26          0.17            0.13             0.21      0.24              0.15        63.18

Mar    0.05  0.16     0.12           0.14          0.12            0.14             0.22      0.22              0.15        61.17

Apr    0.05  0.13     0.11           0.09          0.08            0.16             0.19      0.12              0.11        63.66

Mai    0.04  0.09     0.07           0.04          0.06            0.13             0.14      0.10              0.14        69.57

Jun    0.03  0.04     0.05           0.08          0.12            0.19             0.21      0.17              0.12        68.78

Jul    0.02  0.06     0.09           0.10          0.15            0.20             0.23      0.14              0.14        63.17

Aug    0.06  0.12     0.19           0.10          0.11            0.26             0.13      0.13              0.16        57.88

Sep    0.07  0.13     0.36           0.10          0.12            0.24             0.15      0.15              0.11        55.40

Okt    0.06  0.14     0.21           0.12          0.10            0.18             0.21      0.16              0.09        54.46

Nov    0.07  0.14     0.19           0.13          0.10            0.16             0.24      0.18              0.14        50.47

Des    0.09  0.16     0.21           0.13          0.06            0.10             0.24      0.20              0.14        54.52

 

Har en problemstilling hvor jeg skal kjøre korrelasjonen mellom Pris pr.kilo og forskjellige fylker i Norge (noen kolonner mangler navn for å få plass til tabellen). Dette skal gjøres gjennom bruk av R i Rstudio. 

 

Optimalt sett vil jeg opprette en loop som kjører korrelasjonen, for deretter å sette dette inn i en tom vector. 

 

Noen som har et forslag til hvordan dette kan gjøres?

 

Limer også inn kodene mine så langt:

 

# Remove NA-observations from dataset "lus" and removing row "totalsum"

lus2 <- na.omit(lus)

 

lus3 <- lus2[-c(10),]

 

 

# The problem now is that "laksepris" has months in the columns, while "lus" has months in the rows

 

laksepris2 <- laksepris %>%

  spread (Month, Pris)

 

test <- rbind(setDT(lus3), setDT(laksepris2), fill=TRUE)

 

 

test[10,1] <- "Pris pr.kilo"

 

test_round <- test %>% 

  mutate_if(is.numeric, round, digits = 2)

 

#-------------------------------------------

 

 

rearranget_lus <- as.data.frame(t(test_round))

 

rearranget_lus

 

# Removing first row, and renaming the columns:

 

lus_1 <- rearranget_lus[-c(1),]

 

names (lus_1) [1] <- "Finmark"

names (lus_1) [2] <- "Troms"

names (lus_1) [3] <- "Nordland"

names (lus_1) [4] <- "Nord-Trondelag"

names (lus_1) [5] <- "Sor-Trondelag"

names (lus_1) [6] <- "More og Romsdal"

names (lus_1) [7] <- "Sogn og Fjordane"

names (lus_1) [8] <- "Hordaland"

names (lus_1) [9] <- "Rogaland og Agder"

names (lus_1) [10] <- "Pris pr.kilo"

 

 

 

Endret 28. august 2018 av bjørn324