根据stringr::words数据，统计每个单词的长度，按照其长度的中位数分为“短单词” 和“长单词”两类，然后统计出每个单词的元音个数，以及元音比例(=元音个数/单词 长度)，将上述生成的数据保存为 word_type。该数据的变量名依次为 word, word_length, word_type, num_vowel, proportion_vowel.

好的，我理解了你的问题。以下是R代码实现：

library(stringr)

# 读入数据
data <- read.csv("your_file.csv")

# 计算每个单词的长度
word_length <- str_length(data$word)

# 按照单词长度的中位数将单词分为短单词和长单词
word_type <- ifelse(word_length < median(word_length), "短单词", "长单词")

# 定义元音字母
vowels <- c("a", "e", "i", "o", "u")

# 计算每个单词的元音个数和元音比例
num_vowel <- sapply(strsplit(data$word, ""), function(x) sum(x %in% vowels))
proportion_vowel <- num_vowel / word_length

# 生成数据框
word_type_data <- data.frame(word = data$word, word_length = word_length, word_type = word_type, num_vowel = num_vowel, proportion_vowel = proportion_vowel)

# 保存数据
write.csv(word_type_data, "word_type.csv", row.names = FALSE)

需要注意的是，上述代码中的"data$word"、"your_file.csv"以及"word_type.csv"需要根据实际情况进行修改。