Gentrification

R Markdown

library(readxl)
library(scatterplot3d)

## Warning: package 'scatterplot3d' was built under R version 3.4.4

library(directlabels)

## Warning: package 'directlabels' was built under R version 3.4.4

setwd("D:/R Coursera")

data5 <- Indikatoren_csv <- read_excel("Indikatoren.csv.xlsx")
names <- data5$Stadtteil
row.names(data5) <- data5$Stadtteil

## Warning: Setting row names on a tibble is deprecated.

sdi <- data5$`Sozialdemografischer Indikator`
wwi <- data5$`Wohnungswirtschaftlicher Indikator`
mi  <- data5$MobilitätsIndikator

data5$pcolor[data5$Gentrification == 2] <- "red1"

## Warning: Unknown or uninitialised column: 'pcolor'.

data5$pcolor[data5$Gentrification == 4] <- "red3"
data5$pcolor[data5$Gentrification == 6] <- "red4"
data5$pcolor[data5$Gentrification == 0] <- "azure2"
data5$pcolor[data5$Gentrification == 1] <- "darkcyan"

with(data5, { 
   s3d <-  scatterplot3d(sdi, mi, wwi,
                color = data5$pcolor, pch=19,
                type  = "h", lty.hplot = 2,
                scale.y = .5,
                main  = "Gentrification Visualization",
                xlab  = "SDI",
                ylab  = "MI",
                zlab  = "WI")

            s3d.coords <- s3d$xyz.convert(sdi, mi, wwi)

               text(s3d.coords$x, s3d.coords$y,
                labels = row.names(data5), 
                srt = -20,
                cex = .55, pos = 4)
            
             
                  legend("topleft", text.width = 1, title = "Phase", bty="n", cex = 0.25,    # Legende Ausrichtung
                    c("Frühe Pionierphase", "Pionier- Gentrifierphase", "Gentrifierphase - Supergentrification", "Hamburger Durchschnitt"),
                    fill = c("red1", "red3", "red4", "darkcyan")) # Legendensymbole
                    
                   par(mfrow=c(1, 1))                                # Legende mit Schriftgröße und -art
                         
               
})