![library(ggplot2)
az <- 65:90
AZ <- 97:122
azAZ <- c(az, AZ)
lines <- readLines(file("stdin"))
text <- paste(lines, collapse = "")
nums <- charToRaw(text) |> as.integer()
has_lo <- any(nums %in% az)
has_up <- any(nums %in% AZ)
xs <- c()
if (has_lo) {
xs <- c(xs, az)
}
if (has_up) {
xs <- c(xs, AZ)
}
xs <- unlist(strsplit(paste(intToUtf8(xs), sep = ""), ""))
characters <- unlist(strsplit(text, ""))[nums %in% azAZ]
char_counts <- table(characters)
all_letters <- data.frame(Character = xs, Count = 0)
ascii_df <- data.frame(Character = names(char_counts), Count = as.numeric(char_counts))
agg <- aggregate(. ~ Character, rbind(ascii_df, all_letters), sum)
agg$Character <- factor(agg$Character, levels = xs)
ggplot(agg, aes(x = Character, y = Count)) +
geom_bar(stat = "identity", fill = "lightblue") +
theme_minimal() +
labs(title = "Histogram of ASCII Characters", x = "ASCII Characters", y = "Count")](/pic/orig/media%2FGLDZJtXXoAAESqh.png)
@Perdritto Nice, but this does a let less than my script and makes no output when run as a script.
It only reads single line, x labels are wrong, mixes lowercase with uppercase.
Also, my script shows whole a-z range if there's any lowercase letter and whole A-Z if there's any uppercase.
It only reads single line, x labels are wrong, mixes lowercase with uppercase.
Also, my script shows whole a-z range if there's any lowercase letter and whole A-Z if there's any uppercase.
2
0
0
14
@serpent7776 You are right, I didn't check anything nor read your whole script (I almost only looked at the pic). My intent was just to fight R with Julia :D
Apr 13, 2024 · 3:53 PM UTC
1
0
1
7
@serpent7776 Haha, yeah, I'm sorry...I had to use it for work and it really doesn't fit in my brain. I guess the main things are the fact it allows things like lm(var1 ~ var2) which needs invisible unspottable macros, a hidden global state, or function as code text
1
0
0
40