library(ggplot2); library(grid)
Hello!

b <- function() {
  #this function is a demo function
  ggplot() +
    ggpoint() +
    scale_discrete() +
    theme()
}

def neue_funktion():
	print("kreativ")
	print("sven")

c <- function() {
  #this function is a demo function
  ggplot() +
    gglines() +
    scale_discrete() +
    theme()
}

print("welt")

g <- if(b == a) {
  print("bla bla")
} else {
  print("nee")
}

print("issues")

a <- function() {
  #this function is a demo function
  ggplot() +
    ggbar() +
    scale_discrete() +
    theme()
}

plot(letters[1:5], seq(1:5))
lines(1:5, rep(1,5), col="red")
lines(rep(2,5), 1:5, col="green")
grid()

#finale oh oh