Cherokee VOT Across Years


  
library(ggplot2)
charokeeVOT <- read.delim("C:/Users/melan/Downloads/cherokeeVOT.txt")
View(charokeeVOT)
ggplot(charokeeVOT) +
  geom_col(aes(x= year, y= VOT))

This script loads a dataset containing VOT measurements for Cherokee speech and visualizes the data using R. After importing the dataset, a bar plot is generated with year on the x-axis and VOT on the y-axis. Each bar represents the VOT value associated with a given year, allowing for a visual comparison of VOT measurements across time.

Letter Frequency in Wordle Answer Words

library(tidyverse)
words <- read.csv("C:/Users/melan/Downloads/FreqWords.csv")

letters_df <- words %>%
  mutate(
    letter1 = str_sub(FreqWords, 1, 1),
    letter2 = str_sub(FreqWords, 2, 2),
    letter3 = str_sub(FreqWords, 3, 3),
    letter4 = str_sub(FreqWords, 4, 4),
    letter5 = str_sub(FreqWords, 5, 5)
  )
long <- letters_df %>%
  pivot_longer(cols = starts_with("letter"),
               names_to = "position",
               values_to = "character")

is.vector(str_split(words, ""))
[1] TRUE
ggplot(long, aes(x = character)) +
  geom_bar()

  labs(
    title = "Letter Frequency in Wordle Answers",
    x = "Letter",
    y = "Frequency"
  ) +
  theme_minimal()
NULL

This analysis investigates which letters occur most frequently in Wordle answer words. The dataset consists of a list of five-letter English words, with each word treated as a single observation. Using R, each word is split into its individual letters, and the data are reshaped so that each letter appears as its own row. The frequency of each letter is then calculated by counting how often it occurs across the entire Wordle answer list. These frequencies are visualized in a bar chart, making it easy to compare how commonly different letters appear in Wordle answers.

LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQphdXRob3I6ICJNZWxhbmllIE5hcGEiDQpkYXRlOiAiMTIvMTUvMjAyNSINCm91dHB1dDoNCiAgaHRtbF9ub3RlYm9vazogZGVmYXVsdA0KICBwZGZfZG9jdW1lbnQ6IGRlZmF1bHQNCiAgaHRtbF9kb2N1bWVudDoNCiAgICBkZl9wcmludDogcGFnZWQNCi0tLQ0KIyMgQ2hlcm9rZWUgVk9UIEFjcm9zcyBZZWFycyANCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKQ0KY2hhcm9rZWVWT1QgPC0gcmVhZC5kZWxpbSgiQzovVXNlcnMvbWVsYW4vRG93bmxvYWRzL2NoZXJva2VlVk9ULnR4dCIpDQpWaWV3KGNoYXJva2VlVk9UKQ0KZ2dwbG90KGNoYXJva2VlVk9UKSArDQogIGdlb21fY29sKGFlcyh4PSB5ZWFyLCB5PSBWT1QpKQ0KYGBgDQoNClRoaXMgc2NyaXB0IGxvYWRzIGEgZGF0YXNldCBjb250YWluaW5nIFZPVCBtZWFzdXJlbWVudHMgZm9yIENoZXJva2VlIHNwZWVjaCBhbmQgdmlzdWFsaXplcyB0aGUgZGF0YSB1c2luZyBSLiBBZnRlciBpbXBvcnRpbmcgdGhlIGRhdGFzZXQsIGEgYmFyIHBsb3QgaXMgZ2VuZXJhdGVkIHdpdGggeWVhciBvbiB0aGUgeC1heGlzIGFuZCBWT1Qgb24gdGhlIHktYXhpcy4gRWFjaCBiYXIgcmVwcmVzZW50cyB0aGUgVk9UIHZhbHVlIGFzc29jaWF0ZWQgd2l0aCBhIGdpdmVuIHllYXIsIGFsbG93aW5nIGZvciBhIHZpc3VhbCBjb21wYXJpc29uIG9mIFZPVCBtZWFzdXJlbWVudHMgYWNyb3NzIHRpbWUuDQoNCg0KIyMgTGV0dGVyIEZyZXF1ZW5jeSBpbiBXb3JkbGUgQW5zd2VyIFdvcmRzDQpgYGB7cn0NCmxpYnJhcnkodGlkeXZlcnNlKQ0Kd29yZHMgPC0gcmVhZC5jc3YoIkM6L1VzZXJzL21lbGFuL0Rvd25sb2Fkcy9GcmVxV29yZHMuY3N2IikNCg0KbGV0dGVyc19kZiA8LSB3b3JkcyAlPiUNCiAgbXV0YXRlKA0KICAgIGxldHRlcjEgPSBzdHJfc3ViKEZyZXFXb3JkcywgMSwgMSksDQogICAgbGV0dGVyMiA9IHN0cl9zdWIoRnJlcVdvcmRzLCAyLCAyKSwNCiAgICBsZXR0ZXIzID0gc3RyX3N1YihGcmVxV29yZHMsIDMsIDMpLA0KICAgIGxldHRlcjQgPSBzdHJfc3ViKEZyZXFXb3JkcywgNCwgNCksDQogICAgbGV0dGVyNSA9IHN0cl9zdWIoRnJlcVdvcmRzLCA1LCA1KQ0KICApDQpsb25nIDwtIGxldHRlcnNfZGYgJT4lDQogIHBpdm90X2xvbmdlcihjb2xzID0gc3RhcnRzX3dpdGgoImxldHRlciIpLA0KICAgICAgICAgICAgICAgbmFtZXNfdG8gPSAicG9zaXRpb24iLA0KICAgICAgICAgICAgICAgdmFsdWVzX3RvID0gImNoYXJhY3RlciIpDQoNCmlzLnZlY3RvcihzdHJfc3BsaXQod29yZHMsICIiKSkNCg0KZ2dwbG90KGxvbmcsIGFlcyh4ID0gY2hhcmFjdGVyKSkgKw0KICBnZW9tX2JhcigpDQogIGxhYnMoDQogICAgdGl0bGUgPSAiTGV0dGVyIEZyZXF1ZW5jeSBpbiBXb3JkbGUgQW5zd2VycyIsDQogICAgeCA9ICJMZXR0ZXIiLA0KICAgIHkgPSAiRnJlcXVlbmN5Ig0KICApICsNCiAgdGhlbWVfbWluaW1hbCgpDQoNCmBgYA0KDQpUaGlzIGFuYWx5c2lzIGludmVzdGlnYXRlcyB3aGljaCBsZXR0ZXJzIG9jY3VyIG1vc3QgZnJlcXVlbnRseSBpbiBXb3JkbGUgYW5zd2VyIHdvcmRzLiBUaGUgZGF0YXNldCBjb25zaXN0cyBvZiBhIGxpc3Qgb2YgZml2ZS1sZXR0ZXIgRW5nbGlzaCB3b3Jkcywgd2l0aCBlYWNoIHdvcmQgdHJlYXRlZCBhcyBhIHNpbmdsZSBvYnNlcnZhdGlvbi4gVXNpbmcgUiwgZWFjaCB3b3JkIGlzIHNwbGl0IGludG8gaXRzIGluZGl2aWR1YWwgbGV0dGVycywgYW5kIHRoZSBkYXRhIGFyZSByZXNoYXBlZCBzbyB0aGF0IGVhY2ggbGV0dGVyIGFwcGVhcnMgYXMgaXRzIG93biByb3cuIFRoZSBmcmVxdWVuY3kgb2YgZWFjaCBsZXR0ZXIgaXMgdGhlbiBjYWxjdWxhdGVkIGJ5IGNvdW50aW5nIGhvdyBvZnRlbiBpdCBvY2N1cnMgYWNyb3NzIHRoZSBlbnRpcmUgV29yZGxlIGFuc3dlciBsaXN0LiBUaGVzZSBmcmVxdWVuY2llcyBhcmUgdmlzdWFsaXplZCBpbiBhIGJhciBjaGFydCwgbWFraW5nIGl0IGVhc3kgdG8gY29tcGFyZSBob3cgY29tbW9ubHkgZGlmZmVyZW50IGxldHRlcnMgYXBwZWFyIGluIFdvcmRsZSBhbnN3ZXJzLg==