merican Journalism</em> (Nation Books)
</p>


<h3>Examples</h3>

<pre><code class='language-R'>##
## 1. Combine first 2 rows 
##
data(politicalKnowledge)
pk &lt;- politicalKnowledge[-1,]
pk[1, -1] &lt;- ((politicalKnowledge[1, -1] + 
                 politicalKnowledge[2, -1])/2)
pk[1, 'country'] &lt;- 'DK-FI'

##
## 2.  plot
##
xlim &lt;- range(pk[, 'PublicMediaPerCapita'])
ylim &lt;- 100*range(pk[2:7])
text.cex &lt;- 2

# to label the lines 
(US.UK &lt;- (pk[2, -1]+pk[3, -1])/2)

#png('Knowledge v. public