R

From Torben's Wiki
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
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")