function c

demo function ggplot lines

Datei1.txt

@@ -1,12 +1,47 @@
+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