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")