25 lines
693 B
R
25 lines
693 B
R
#i <- 1
|
|
|
|
ransomware_big_families <- ransomware %>%
|
|
group_by(label) %>% filter(n() > 1) %>%
|
|
ungroup()
|
|
|
|
ransomware_big_families <- ransomware_big_families %>% mutate(income = as.numeric(income))
|
|
|
|
|
|
for(i in 1:length(levels(ransomware_big_families$label))){
|
|
ggp <-
|
|
ransomware_big_families %>% filter(label==levels(ransomware_big_families$label)[i]) %>%
|
|
select(income) %>%
|
|
ggplot(aes(x=income, y = ..density..)) +
|
|
# geom_histogram(bins="30") +
|
|
# geom_bar() +
|
|
geom_density(col = "green", size = .5)+
|
|
ggtitle(levels(ransomware_big_families$label)[i]) +
|
|
scale_x_continuous(trans='log2')
|
|
print(ggp)
|
|
print(i)
|
|
print(levels(ransomware_big_families$label)[i])
|
|
}
|
|
|