8 lines
225 B
R
8 lines
225 B
R
|
for(i in 1:30){
|
||
|
print(
|
||
|
ransomware %>% filter(label==levels(ransomware$label)[i]) %>%
|
||
|
select(income) %>%
|
||
|
ggplot(aes(x=income, y = ..density..)) + geom_histogram(bins="30") +
|
||
|
geom_density(col = "green", size = .5)
|
||
|
)
|
||
|
}
|