title: How to display the frequency at the top of each factor in a barplot in R
body: <blockquote>
    <p><strong>Possible Duplicate:</strong><br>
    <a href="https://stackoverflow.com/questions/4217207/add-text-to-horizontal-barplot-in-r-y-axis-at-different-scale">add text to horizontal barplot in R, y-axis at different scale?</a><br>
    <a href="https://stackoverflow.com/questions/9815226/annotate-values-above-bars-ggplot-faceted">Annotate values above bars (ggplot faceted)</a>  </p>
  </blockquote>
  
  
  
  <p>Using the code below, I'm hoping to display a number above each column that corresponds to the y-value for that column. In other words, I'm trying to get "QnWeight_initial" to display 593 at the top of the gray bar and so and...</p>
  
  <p>My data:</p>
  
  <pre><code>data&lt;-structure(list(V1 = structure(c(2L, 1L), .Label = c("593", "QnWeight_initial"
  ), class = "factor"), V2 = structure(c(2L, 1L), .Label = c("566", 
  "Head"), class = "factor"), V3 = structure(c(2L, 1L), .Label = c("535", 
  "V1"), class = "factor"), V4 = structure(c(2L, 1L), .Label = c("535", 
  "V2"), class = "factor"), V5 = structure(c(2L, 1L), .Label = c("535", 
  "V3"), class = "factor"), V6 = structure(c(2L, 1L), .Label = c("482", 
  "Left_Leg"), class = "factor"), V7 = structure(c(2L, 1L), .Label = c("474", 
  "Left_Antenna"), class = "factor"), V8 = structure(c(2L, 1L), .Label = c("237", 
  "Qn_Weight_Loss"), class = "factor"), V9 = structure(c(2L, 1L
  ), .Label = c("230", "Days_wrkr_eclosion"), class = "factor"), 
      V10 = structure(c(2L, 1L), .Label = c("81", "Growth_all"), class = "factor"), 
      V11 = structure(c(2L, 1L), .Label = c("79", "Growth_1_2"), class = "factor"), 
      V12 = structure(c(2L, 1L), .Label = c("62", "Growth_1_3"), class = "factor"), 
      V13 = structure(c(2L, 1L), .Label = c("60", "Growth_2_3"), class = "factor"), 
      V14 = structure(c(2L, 1L), .Label = c("51", "Right_Antenna"
      ), class = "factor"), V15 = structure(c(2L, 1L), .Label = c("49", 
      "Left_Leg_Remeasure"), class = "factor"), V16 = structure(c(2L, 
      1L), .Label = c("49", "Right_Leg"), class = "factor"), V17 = structure(c(2L, 
      1L), .Label = c("47", "Head_Remeasure"), class = "factor"), 
      V18 = structure(c(2L, 1L), .Label = c("46", "Left_Antenna_Remeasure"
      ), class = "factor")), .Names = c("V1", "V2", "V3", "V4", 
  "V5", "V6", "V7", "V8", "V9", "V10", "V11", "V12", "V13", "V14", 
  "V15", "V16", "V17", "V18"), class = "data.frame", row.names = c(NA, 
  -2L))
  dat&lt;-data.frame(fac=unlist(data[1,, drop=FALSE]), freqs=unlist(data[2,, drop=FALSE]))
  </code></pre>
  
  <p>The plot:</p>
  
  <pre><code>barplot( as.numeric( as.character(dat$freqs)) , main="Sample Sizes of Various Fitness Traits", xaxt='n', xlab='', width=0.85, ylab="Frequency")
  par(mar=c(5,8,4,2))
  labels&lt;-unlist(data[1,,drop=FALSE])
  text(1:18, par("usr")[3] -0.25, srt=90, adj=1,labels=labels,xpd=TRUE, cex=0.6)
  </code></pre>