function c

demo function ggplot lines

Datei1.txt

@@ -1,17 +1,47 @@
-Hello Akira!
+library(ggplot2); library(grid)
+Hello!
 
-Lorem Ipsum
-
-def neue_funktion():
-	print("funk")
-
-def schleife():
-	for i in range(10):
-		print(i)
-
-aki <- func(x) { 
-  print(x)
+b <- function() {
+  #this function is a demo function
+  ggplot() +
+    ggpoint() +
+    scale_discrete() +
+    theme()
 }
 
-plot(1:10, rep(1,10))
-lines(1:10, 1:10)
+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