R光沢のある水平断面

Question

私は会社の資産の進化のグラフィックを持っています。水平軸断面の帽子を300000から400000までのOx軸と平行に描きたいので、この指標の最適値を示すはずですステークホルダーが望むもの）とライン（グラフィック自体）は、特定の時点での価値が良いかどうかをすぐに確認するために、そのセクションを超えていなければなりません。

#date_a 
An   AI  AC AT 
2011 147198 292282 439480 
2012 164660 175440 340100 
2013 153755 202013 355768 
2014 141857 242317 384174 
2015 137748 270366 408114 
2016 129087 397289 526376 

#in ui.r 
fluidRow(
        width="100%", 
        column(4,plotOutput(outputId = "act", height = 100)) 
       ), 
#in server.r 
    output$act<- renderPlot({ 
    ggplot(date_a, aes(date_a$An, date_a$AT)) + 
     geom_line(aes(group=1), colour="#000000") + 
     geom_point(size=3, colour="#FF0000")+ 
     labs(x = "An", y = "Active(lei)") + 
     ggtitle("Evolutia activelor totale") 
    }) 

Answer 1

まず、shinyとは関係ありません。あなたの質問はggplot2と関係がある。あなたの問題の真の原因があなたの質問を沸かすことは、あなたがより速くヘルプを得るのに役立ちます。また、私のコメントで述べたように、あなたのaesの中でggplotという名前を呼び出すときは、data_a$をあなたの列名の前に置いてはいけません。あなたは地域全体が、あなたはこのように、geom_ribbonを使用することができ、Y = 40万、Y =30万から記入したい場合はそれと

が、言われている：

ggplot(data_a, aes(An, AT)) + 
    geom_line(aes(group=1), colour="#000000") + 
    geom_point(size=3, colour="#FF0000")+ 
    labs(x = "An", y = "Active(lei)") + 
    ggtitle("Evolutia activelor totale") + 
    geom_ribbon(aes(ymin = 300000, ymax = 400000), alpha = 0.2, fill = "blue") 

あなたにこれを与えること：

あなたが望むように見えるように地域を取得するためにalphaとfillの値を変更することができます。あなた300,000 400,000両方でわずか2本の水平線を望んでいたなら、あなたの代わりにこれを行うことができ

：

ggplot(data_a, aes(An, AT)) + 
    geom_line(aes(group=1), colour="#000000") + 
    geom_point(size=3, colour="#FF0000")+ 
    labs(x = "An", y = "Active(lei)") + 
    ggtitle("Evolutia activelor totale") + 
    geom_hline(aes(yintercept = 300000)) + 
    geom_hline(aes(yintercept = 400000)) 

あなたにこの与える：「水平断面」で