在 ggplot2 中的条形图中绘制线条

Joe_Informatics

我试图通过绘制在我的柱状图中可以观看点的线条是否有与速度变化的差异，观察是否有一种趋势，然而，行不出现内尝试不同的方法和改变价值观AES作为好。

代码片段：

File_Size <- c(571, 571, 571, 669, 669, 669, 898, 898, 898, 1700, 1700, 1700, 
               3800, 3800, 3800)

Run_Time <- c(0.786, 0.342, 0.571, 0.856, 0.369, 0.571, 0.890, 0.391, 0.607, 4.10, 1.23, 3.50, 4.25, 1.93, 3.90)

Algorithm <- c("Algo1", "Algo2" ,"Algo3", "Algo1", "Algo2" ,"Algo3","Algo1", "Algo2" ,"Algo3","Algo1", "Algo2" ,"Algo3","Algo1", "Algo2" ,"Algo3")

ggplot(time_complexity, aes(reorder(File_Size, Run_Time), Run_Time, fill = Algorithm)) + 
  geom_bar(stat = 'identity', position = 'dodge') + 
  geom_density(stat = 'identity')

佩德罗·阿伦卡尔

我相信这可以解决您的问题

ggplot(time_complexity, aes(reorder(File_Size, Run_Time), Run_Time, fill = Algorithm)) + 
  geom_bar(stat = 'identity', position = 'dodge', alpha = 0.7) + 
  geom_density(stat = 'identity')+
  geom_line(aes(colour=Algorithm, group=Algorithm),
            size = 2)

您也可以只选择要绘制的一条线：

ggplot(time_complexity, aes(reorder(File_Size, Run_Time), Run_Time, fill = Algorithm)) + 
  geom_bar(stat = 'identity', position = 'dodge', alpha = 0.8) + 
  geom_density(stat = 'identity')+
  geom_line(data = time_complexity[time_complexity$Algorithm == 'Algo1',], 
            aes(reorder(File_Size, Run_Time), Run_Time, colour=Algorithm, group=Algorithm),
            size = 2)

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。