Я использую R для рисования многопанельного барплота с помощью ggplot.
Из-за большого количества данных полосы перекрываются друг с другом, поэтому я хочу избежать этой проблемы, изменивширина полосы меньше (до ширины = 0,01), однако, барды все еще перекрываются после изменения. Как решить эту проблему?
mean = round(mean(FoxP3$intensity), digit = 2)
CV = round(sd(FoxP3$intensity)/mean, digit = 2)
p5 <-
ggplot(FoxP3, aes(x = index, y = intensity, color = factor(location))) +
theme_bw(base_rect_size = 1) +
scale_color_manual(name = 'Regions',values = c("#F2F2C6", "#F26969",'#02f527')) +
xlab('FoxP3')+
ylab('Case 1B') +
scale_y_continuous(position = 'right', sec.axis = dup_axis()) +
theme(axis.text = element_text(size = 18), axis.title = element_text(size = 30), legend.text = element_text(size = 38), legend.title = element_text(size = 40),
strip.background = element_rect(colour="black", fill="white"), axis.text.y.right = element_blank(), axis.ticks.y.right = element_blank(),
axis.title.y.left = element_blank()) +
annotate(geom="text", x=1000, y= 5500, label= paste('mean = ',mean, sep = ''), size = 5) +
annotate(geom="text", x=1000, y= 4900, label= paste('CoV = ',CV, sep = ''), size = 5) +
geom_bar(stat = 'identity', fill = 'white', width = 0.1, space = 0.1, show.legend = FALSE)
Графики:
Образецданные
https://livejohnshopkins -my.sharepoint.com /: u: / g / personal / hmi1_jh_edu / EWRy3SaWlnRAqeNVOJxU1PwBmHL69GkP1wymmURTYaUp9w? e = PZ7OG1 * 1021