我有这个数据框＆＃34; df＆＃34; （显示1000个元组中的15个）
inf sup frec prob
1 1.000318 1.005308 12 0.060
2 1.005308 1.010297 5 0.025
3 1.010297 1.015286 5 0.025
4 1.015286 1.020276 2 0.010
5 1.020276 1.025265 3 0.015
6 1.025265 1.030254 3 0.015
7 1.030254 1.035244 8 0.040
8 1.035244 1.040233 2 0.010
9 1.040233 1.045223 3 0.015
10 1.045223 1.050212 0 0.000
11 1.050212 1.055201 4 0.020
12 1.055201 1.060191 1 0.005
13 1.060191 1.065180 1 0.005
14 1.065180 1.070169 0 0.000
15 1.070169 1.075159 1 0.005
我想在x = [inf [i]：sup [i]]的间隔中绘制一个段，并在y轴= prob [i]中绘制每一行。 我尝试this解决方案，使用＆＃34; for循环＆＃34;绘制每个细分：
plot <- ggplot(data = df)
for(i in 1:15){
plot <- plot + geom_segment(aes(x = df$inf[i], xend = df$sup[i], y = df$prob[i], yend = df$prob[i]))
}
plot
但我得到的是y = 0的单行;我假设因为我的＆＃34; prob＆＃34;值接近于零。另一个问题是，如果for循环达到一个合适的值，则会出现错误：
Error: nested evaluation too deep; Infinite recursion options (expressions =)?
有没有办法按x间隔绘制这些段？ 或者可能放弃间隔的概念并绘制每个间隔的一些点会更好？