R

来自Gea-Suan Lin's Wiki
Gslin讨论 | 贡献2020年12月5日 (六) 09:09的版本 (创建页面,内容为“'''R''' == 範例 == <syntaxhighlight lang="r"> df <- read.table('blog.gslin.org_ssl-access.log.2.gz') colnames(df) <- c('host', 'ident', 'authuser', 'date', 'time…”)
(差异) ←上一版本 | 最后版本 (差异) | 下一版本→ (差异)
跳到导航 跳到搜索

R

範例

df <- read.table('blog.gslin.org_ssl-access.log.2.gz')
colnames(df) <- c('host', 'ident', 'authuser', 'date', 'timezone', 'request', 'status', 'bytes', 'referer', 'useragent', 'cipher')
head(df)
df$date=as.POSIXct(df$date, tryFormats=("[%d/%b/%Y:%H:%M:%S"))
head(df)
reqs=as.data.frame(table(df$date))
p <- ggplot(data=reqs, aes(x=as.POSIXct(Var1), y=Freq)) + geom_line() + xlab('Date') + ylab('Requests')
png('a.png', 720, 720)
print(p)
dev.off()