Dear R users, I have a problem to plot label (Year) only for significant values (in this case spoz and sneg). I use this code, but don't work with labels. library(ggplot2) ggplot(data1, aes(x = Year, y = value,fill=type,width=1))+ geom_bar(stat="identity",position="identity")+ scale_y_continuous(breaks = round(seq(-100, 100, by = 10),10))+ theme_bw() the data used is: Year variable value type 1 1901 neg 0.00 all 2 1902 neg 0.00 all 3 1903 neg 0.00 all 4 1904 neg 0.00 all 5 1905 neg -100.00 all 6 1906 neg -100.00 all 7 1907 neg -50.00 all 8 1908 neg -66.67 all 9 1909 neg 0.00 all 10 1910 neg -66.67 all 11 1911 neg -66.67 all 12 1912 neg 0.00 all 13 1913 neg -50.00 all 112 1901 poz 0.00 all 113 1902 poz 100.00 all 114 1903 poz 100.00 all 115 1904 poz 0.00 all 116 1905 poz 0.00 all 117 1906 poz 0.00 all 118 1907 poz 50.00 all 119 1908 poz 33.33 all 120 1909 poz 33.33 all 121 1910 poz 33.33 all 122 1911 poz 0.00 all 123 1912 poz 33.33 all 124 1913 poz 25.00 all 223 1901 sneg NA sneg 224 1902 sneg NA sneg 225 1903 sneg NA sneg 226 1904 sneg NA sneg 227 1905 sneg -100.00 sneg 228 1906 sneg -100.00 sneg 229 1907 sneg NA sneg 230 1908 sneg -66.67 sneg 231 1909 sneg NA sneg 232 1910 sneg -66.67 sneg 233 1911 sneg -66.67 sneg 234 1912 sneg NA sneg 235 1913 sneg NA sneg 334 1901 spoz NA spoz 335 1902 spoz 100.00 spoz 336 1903 spoz 100.00 spoz 337 1904 spoz NA spoz 338 1905 spoz NA spoz 339 1906 spoz NA spoz 340 1907 spoz NA spoz 341 1908 spoz NA spoz 342 1909 spoz NA spoz 343 1910 spoz NA spoz 344 1911 spoz NA spoz 345 1912 spoz NA spoz 346 1913 spoz NA spoz Thank you very much! Best regards! -- --- Catalin-Constantin ROIBU Lecturer PhD, Forestry engineer Forestry Faculty of Suceava Str. Universitatii no. 13, Suceava, 720229, Romania office phone +4 0230 52 29 78, ext. 531 mobile phone +4 0745 53 18 01 +4 0766 71 76 58 FAX: +4 0230 52 16 64 silvic.usv.ro [[alternative HTML version deleted]]