R
From Torben's Wiki
Jump to navigationJump to search
library(tidyverse) #library(ggplot2) setwd("C:\\Users\\torben.menke\\Documents\\Code-Schnippsel\\R\\Ping-Auswertung") datei <- read_tsv("data/App-CK_to_DB-Server_2017-06-28.log", comment = "#", col_names = c("date", "ms", "status"), cols( date = col_datetime("%d.%m.%Y %H:%M:%S"), ms = col_double(), status = col_character() ) ) # plot1 = datetime vs. log(response(ms)) plot1 <- ggplot(data = datei) + theme_bw() + geom_point(mapping = aes(x = date, y = ms) ) + scale_y_log10(breaks = c(0.1, 1,10,100,1000,10000) ) + xlab("Date") + ylab("Ping response (ms)") ggtitle("datetime vs. log")