[R] multiple bar plot annotation text labelling

David L Carlson dcarlson at tamu.edu
Mon Apr 4 19:57:52 CEST 2016


Use only plain text emails. Don't attach file types that will be stripped. See the footer at the bottom of your email for more information.

Do give us the data using dput():
> dput(testbarplot)
structure(list(V1 = c(1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L), V2 = c(3L, 
8L, 1L, 9L, 5L, 4L, 2L, 0L), V3 = structure(c(1L, 2L, 3L, 4L, 
3L, 5L, 6L, 7L), .Label = c("A", "B", "C", "D", "E", "F", "G"
), class = "factor")), .Names = c("V1", "V2", "V3"), class = "data.frame", row.names = c(NA, 
-8L))

I think this will get you what you want:

> barplot(testbarplot[,2], axes=FALSE, ann=FALSE, horiz=TRUE, ylab= 'group',
+ xlab= '(x values)', space=c(1,0,0,0, 1,0,0,0), names.arg=testbarplot[, 3],
+ las=1)


-------------------------------------
David L Carlson
Department of Anthropology
Texas A&M University
College Station, TX 77840-4352


-----Original Message-----
From: R-help [mailto:r-help-bounces at r-project.org] On Behalf Of message
Sent: Monday, April 4, 2016 6:00 AM
To: r-help at r-project.org
Subject: [R] multiple bar plot annotation text labelling

Readers,

The attempt is to create a bar plot with text labels adjacent to each 
datum value.

Data file:
1,3,A
1,8,B
1,1,C
1,9,D
2,5,C
2,4,E
2,2,F
2,0,G

testbarplot<-read.csv('data1.csv', header=FALSE)
barplot(axes=FALSE, ann=FALSE, horiz=TRUE, testbarplot[,2], ylab= 
'group', xlab= '(x values)', space=c(1,0,0,0, 1,0,0,0))
text(testbarplot[,2], testbarplot[,1], c('a', 'b', 'c', 'd', 'c', 'e', 
'f', 'g'), pos=4)

Why does the text labels only appear for the lower half group of bar 
plot values?

Below is an example of the type of graph that is being sought. It is svg 
text exported from libreoffice calc that should be saved as a separate 
file and viewable in any svg viewer such as a web browser or a tool such 
as 'eye of gnome'.

<?xml version="1.0" encoding="UTF-8"?>

<svg version="1.2" baseProfile="tiny" width="115.01mm" height="126.01mm" 
viewBox="1200 2000 11501 12601" preserveAspectRatio="xMidYMid" 
fill-rule="evenodd" stroke-width="28.222" stroke-linejoin="round" 
xmlns="http://www.w3.org/2000/svg" 
xmlns:ooo="http://xml.openoffice.org/svg/export" 
xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve">
  <defs class="ClipPathGroup">
   <clipPath id="presentation_clip_path" clipPathUnits="userSpaceOnUse">
    <rect x="1200" y="2000" width="11501" height="12601"/>
   </clipPath>
  </defs>
  <defs>
   <font id="EmbeddedFont_1" horiz-adv-x="2048">
    <font-face font-family="Liberation Sans embedded" units-per-em="2048" 
font-weight="normal" font-style="normal" ascent="1852" descent="423"/>
    <missing-glyph horiz-adv-x="2048" d="M 0,0 L 2047,0 2047,2047 0,2047 
0,0 Z"/>
    <glyph unicode="1" horiz-adv-x="927" d="M 156,0 L 156,153 515,153
515,1237 197,1010 197,1180 530,1409 696,1409 696,153 1039,153 1039,0 
156,0 Z"/>
   </font>
  </defs>
  <defs class="TextShapeIndex">
   <g ooo:slide="id1" ooo:id-list="id3 id4 id5 id6 id7 id8 id9 id10 id11 
id12 id13 id14 id15 id16 id17 id18 id19 id20 id21"/>
  </defs>
  <defs class="EmbeddedBulletChars">
   <g id="bullet-char-template(57356)" 
transform="scale(0.00048828125,-0.00048828125)">
    <path d="M 580,1141 L 1163,571 580,0 -4,571 580,1141 Z"/>
   </g>
   <g id="bullet-char-template(57354)" 
transform="scale(0.00048828125,-0.00048828125)">
    <path d="M 8,1128 L 1137,1128 1137,0 8,0 8,1128 Z"/>
   </g>
   <g id="bullet-char-template(10146)" 
transform="scale(0.00048828125,-0.00048828125)">
    <path d="M 174,0 L 602,739 174,1481 1456,739 174,0 Z M 1358,739 L 
309,1346 659,739 1358,739 Z"/>
   </g>
   <g id="bullet-char-template(10132)" 
transform="scale(0.00048828125,-0.00048828125)">
    <path d="M 2015,739 L 1276,0 717,0 1260,543 174,543 174,936 1260,936
717,1481 1274,1481 2015,739 Z"/>
   </g>
   <g id="bullet-char-template(10007)" 
transform="scale(0.00048828125,-0.00048828125)">
    <path d="M 0,-2 C -7,14 -16,27 -25,37 L 356,567 C 262,823 215,952 
215,954 215,979 228,992 255,992 264,992 276,990 289,987 310,991 331,999 
354,1012 L 381,999 492,748 772,1049 836,1024 860,1049 C 881,1039 
901,1025 922,1006 886,937 835,863 770,784 769,783 710,716 594,584 L 
774,223 C 774,196 753,168 711,139 L 727,119 C 717,90 699,76 672,76 
641,76 570,178 457,381 L 164,-76 C 142,-110 111,-127 72,-127 30,-127 
9,-110 8,-76 1,-67 -2,-52 -2,-32 -2,-23 -1,-13 0,-2 Z"/>
   </g>
   <g id="bullet-char-template(10004)" 
transform="scale(0.00048828125,-0.00048828125)">
    <path d="M 285,-33 C 182,-33 111,30 74,156 52,228 41,333 41,471 
41,549 55,616 82,672 116,743 169,778 240,778 293,778 328,747 346,684 L 
369,508 C 377,444 397,411 428,410 L 1163,1116 C 1174,1127 1196,1133 
1229,1133 1271,1133 1292,1118 1292,1087 L 1292,965 C 1292,929 1282,901 
1262,881 L 442,47 C 390,-6 338,-33 285,-33 Z"/>
   </g>
   <g id="bullet-char-template(9679)" 
transform="scale(0.00048828125,-0.00048828125)">
    <path d="M 813,0 C 632,0 489,54 383,161 276,268 223,411 223,592 
223,773 276,916 383,1023 489,1130 632,1184 813,1184 992,1184 1136,1130 
1245,1023 1353,916 1407,772 1407,592 1407,412 1353,268 1245,161 1136,54 
992,0 813,0 Z"/>
   </g>
   <g id="bullet-char-template(8226)" 
transform="scale(0.00048828125,-0.00048828125)">
    <path d="M 346,457 C 273,457 209,483 155,535 101,586 74,649 74,723 
74,796 101,859 155,911 209,963 273,989 346,989 419,989 480,963 531,910 
582,859 608,796 608,723 608,648 583,586 532,535 482,483 420,457 346,457 
Z"/>
   </g>
   <g id="bullet-char-template(8211)" 
transform="scale(0.00048828125,-0.00048828125)">
    <path d="M -4,459 L 1135,459 1135,606 -4,606 -4,459 Z"/>
   </g>
  </defs>
  <defs class="TextEmbeddedBitmaps"/>
  <g class="SlideGroup">
   <g>
    <g id="id1" class="Slide" clip-path="url(#presentation_clip_path)">
     <g class="Page">
      <g class="com.sun.star.drawing.CustomShape">
       <g id="id3">
        <path fill="rgb(114,159,207)" stroke="none" d="M 4350,3000 L
3000,3000 3000,2100 5700,2100 5700,3000 4350,3000 Z"/>
        <path fill="none" stroke="rgb(52,101,164)" d="M 4350,3000 L 
3000,3000 3000,2100 5700,2100 5700,3000 4350,3000 Z"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.CustomShape">
       <g id="id4">
        <path fill="rgb(114,159,207)" stroke="none" d="M 5350,3900 L
3000,3900 3000,3000 7700,3000 7700,3900 5350,3900 Z"/>
        <path fill="none" stroke="rgb(52,101,164)" d="M 5350,3900 L 
3000,3900 3000,3000 7700,3000 7700,3900 5350,3900 Z"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.CustomShape">
       <g id="id5">
        <path fill="rgb(114,159,207)" stroke="none" d="M 3800,4800 L
3000,4800 3000,3900 4600,3900 4600,4800 3800,4800 Z"/>
        <path fill="none" stroke="rgb(52,101,164)" d="M 3800,4800 L 
3000,4800 3000,3900 4600,3900 4600,4800 3800,4800 Z"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.CustomShape">
       <g id="id6">
        <path fill="rgb(114,159,207)" stroke="none" d="M 7850,5700 L
3000,5700 3000,4800 12700,4800 12700,5700 7850,5700 Z"/>
        <path fill="none" stroke="rgb(52,101,164)" d="M 7850,5700 L 
3000,5700 3000,4800 12700,4800 12700,5700 7850,5700 Z"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.CustomShape">
       <g id="id7">
        <path fill="rgb(114,159,207)" stroke="none" d="M 4350,7500 L
3000,7500 3000,6600 5700,6600 5700,7500 4350,7500 Z"/>
        <path fill="none" stroke="rgb(52,101,164)" d="M 4350,7500 L 
3000,7500 3000,6600 5700,6600 5700,7500 4350,7500 Z"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.CustomShape">
       <g id="id8">
        <path fill="rgb(114,159,207)" stroke="none" d="M 5350,8400 L
3000,8400 3000,7500 7700,7500 7700,8400 5350,8400 Z"/>
        <path fill="none" stroke="rgb(52,101,164)" d="M 5350,8400 L 
3000,8400 3000,7500 7700,7500 7700,8400 5350,8400 Z"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.CustomShape">
       <g id="id9">
        <path fill="rgb(114,159,207)" stroke="none" d="M 3800,9300 L
3000,9300 3000,8400 4600,8400 4600,9300 3800,9300 Z"/>
        <path fill="none" stroke="rgb(52,101,164)" d="M 3800,9300 L 
3000,9300 3000,8400 4600,8400 4600,9300 3800,9300 Z"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.CustomShape">
       <g id="id10">
        <path fill="rgb(114,159,207)" stroke="none" d="M 7850,10200 L
3000,10200 3000,9300 12700,9300 12700,10200 7850,10200 Z"/>
        <path fill="none" stroke="rgb(52,101,164)" d="M 7850,10200 L
3000,10200 3000,9300 12700,9300 12700,10200 7850,10200 Z"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.CustomShape">
       <g id="id11">
        <path fill="rgb(114,159,207)" stroke="none" d="M 4350,11900 L
3000,11900 3000,11000 5700,11000 5700,11900 4350,11900 Z"/>
        <path fill="none" stroke="rgb(52,101,164)" d="M 4350,11900 L
3000,11900 3000,11000 5700,11000 5700,11900 4350,11900 Z"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.CustomShape">
       <g id="id12">
        <path fill="rgb(114,159,207)" stroke="none" d="M 5350,12800 L
3000,12800 3000,11900 7700,11900 7700,12800 5350,12800 Z"/>
        <path fill="none" stroke="rgb(52,101,164)" d="M 5350,12800 L
3000,12800 3000,11900 7700,11900 7700,12800 5350,12800 Z"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.CustomShape">
       <g id="id13">
        <path fill="rgb(114,159,207)" stroke="none" d="M 3800,13700 L
3000,13700 3000,12800 4600,12800 4600,13700 3800,13700 Z"/>
        <path fill="none" stroke="rgb(52,101,164)" d="M 3800,13700 L
3000,13700 3000,12800 4600,12800 4600,13700 3800,13700 Z"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.CustomShape">
       <g id="id14">
        <path fill="rgb(114,159,207)" stroke="none" d="M 7850,14600 L
3000,14600 3000,13700 12700,13700 12700,14600 7850,14600 Z"/>
        <path fill="none" stroke="rgb(52,101,164)" d="M 7850,14600 L
3000,14600 3000,13700 12700,13700 12700,14600 7850,14600 Z"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.LineShape">
       <g id="id15">
        <path fill="none" stroke="rgb(0,0,0)" d="M 2500,2000 L 
2400,14600"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.LineShape">
       <g id="id16">
        <path fill="none" stroke="rgb(0,0,0)" d="M 2500,3900 L 
2000,3900"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.LineShape">
       <g id="id17">
        <path fill="none" stroke="rgb(0,0,0)" d="M 2450,8400 L 
1950,8400"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.LineShape">
       <g id="id18">
        <path fill="none" stroke="rgb(0,0,0)" d="M 2450,12900 L 
1950,12900"/>
       </g>
      </g>
      <g class="com.sun.star.drawing.TextShape">
       <g id="id19">
        <text class="TextShape"><tspan class="TextParagraph" 
font-family="Liberation Sans, sans-serif" font-size="635px" 
font-weight="400"><tspan class="TextPosition" x="1450" y="4201"/><tspan 
class="TextPosition" x="1450" y="4201"><tspan fill="rgb(0,0,0)" 
stroke="none">1</tspan></tspan></tspan></text>
       </g>
      </g>
      <g class="com.sun.star.drawing.TextShape">
       <g id="id20">
        <text class="TextShape"><tspan class="TextParagraph" 
font-family="Liberation Sans, sans-serif" font-size="635px" 
font-weight="400"><tspan class="TextPosition" x="1451" y="8701"/><tspan 
class="TextPosition" x="1451" y="8701"><tspan fill="rgb(0,0,0)" 
stroke="none">1</tspan></tspan></tspan></text>
       </g>
      </g>
      <g class="com.sun.star.drawing.TextShape">
       <g id="id21">
        <text class="TextShape"><tspan class="TextParagraph" 
font-family="Liberation Sans, sans-serif" font-size="635px" 
font-weight="400"><tspan class="TextPosition" x="1452" y="13201"/><tspan 
class="TextPosition" x="1452" y="13201"><tspan fill="rgb(0,0,0)" 
stroke="none">1</tspan></tspan></tspan></text>
       </g>
      </g>
     </g>
    </g>
   </g>
  </g>
</svg>

______________________________________________
R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.



More information about the R-help mailing list