要在直方图上添加一个更平滑的密度曲线，你可以使用 geom_density() 函数，并调整其 adjust 参数来控制平滑程度。adjust 值越大，曲线越平滑。这里是如何修改你的代码来实现这一点：

library(ggplot2)
library(ggprism)  # for theme_prism# Replace 'feature' with the actual column name you want to plot
feature <- "your_column_name"ggplot(data=feature_ratio, aes_string(x=feature)) +geom_histogram(color='black', fill='cornflowerblue', binwidth=0.7, aes(y=..density..)) +geom_density(color='red', size=1, adjust=2) +  # 使用 adjust 参数增加平滑度labs(x=paste0("Log2(", feature, ") (salt/ck)"), y="Density of inbred lines") +theme_prism(border=TRUE) +coord_cartesian(clip="off")

在这段代码中：

• adjust=2 增加了密度曲线的平滑度。你可以根据需要调整这个值，比如 1.5, 2, 3 等，以找到最适合你数据的平滑级别。
• geom_density() 函数是用来添加平滑的密度曲线的。通过调整 adjust 参数，你可以控制曲线的平滑程度。

确保将 "your_column_name" 替换为你数据框中要绘制的实际列名。