How to improve standard visualizations of a univariate distribution? I have a data set with about 15,000 labeled observations of a single continuous value.
What is the best way to plot this type of data? I'm playing around with various histograms and density plots, but I can't seem to figure out the best way to plot this data set. Any suggestions? 
My data looks like this:  
 label     value  
-------   -------  
  foo       1.2  
  bar       6.2  
  baz       0.2  
  qux       4.7  
  ...       ...  

This data set contains 15,000 values, each with a unique label.
I am looking as to how best to create a visualization of the distribution of the data and see outliers.  Here are two candidate plots I've generated. Both simplified the data more than I would like. Are there any additional ways I could plot the data and somehow integrate the labels into this plot?


 A: A simple idea that satisfies both seeing the entire distribution and one that potentially allows space to place the labels is to use a jittered, one-dimensional dot plot.

In this example I have just arbitrarily chosen points with a value over 25 to label, as well as made the points semi-transparent (even with jittering there is still a substantial amount of over-plotting).
This isn't perfect (I had to arbitrarily choose what points where deemed to be "outliers" and hence which ones would get the label). Also in the software I produced this in (SPSS) I can't restrict the jittering only to the Y dimension of the graph, so many points in this instance fall outside the logical ranges (this is random data generated using a log-normal distribution, so all values are positive).
Although I hope this is a useful demonstration for plotting, given the look of your examples you would surely want to consider transforming the data. I'm sure other members of the site can produce some examples in ggplot2 for demonstration if you need help producing a similar graph in R as well (I look forward to other suggestions as well!)
A: Expanding on the idea from @Andy, I would suggest this alternative which incorporates the two original plots included in the questions:
I created this plot in R with the following code:
data <- data.frame( Id = paste('case',1:5000), x = exp(rnorm(5000)))

outlier.cut = 10

outliers <- data[ data$x > outlier.cut, ]
outliers <- outliers[ order(outliers$x), ]

png(filename = "labeled_outliers.png", width = 600, height = 600)

plot(density(data$x), main = 'Labeled Outliers')
rug( data$x, side = 1)
rug( data$x, side = 3)

unit <- (par('usr')[4]-par('usr')[3]) / ( dim(outliers)[1] + 5 )
outliers$y <- ( c(1:dim(outliers)[1]) * unit)

text(outliers$x, y = outliers$y, label = outliers$Id, cex = .65, srt = 0)

dev.off()

