add live r

2021-05-27 20:33:48 +02:00
parent adf219d08c
commit e728704863
13 changed files with 274553 additions and 0 deletions
@@ -0,0 +1,20 @@
+library(ggplot2)
+library(tibble)
+
+x_plt1 <- seq(0,1,len=1000)
+x_plt2 <- seq(0,1,len=200)
+plt_data1 <- tibble(
+  x_val = x_plt1,
+  y_val1 = x_plt1^2,
+  y_val2 = sqrt(x_plt1))
+plt_data2 <- tibble(
+  x_val = x_plt2,
+  y_val = sin(2*pi*x_plt2)/2+0.5)
+
+plt <- ggplot(data = plt_data1, mapping = aes(x = x_val)) +
+    geom_line(mapping = aes(y = y_val1), color="blue") +
+    geom_line(mapping = aes(y = y_val2), color="red") +
+    geom_line(data = plt_data2, mapping = aes(x = x_val, y = y_val), color="red") +
+    geom_point(data = plt_data2, mapping = aes(x = x_val, y = y_val), color="cyan")
+
+print(plt)