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]]

