>T
        Role Salary
1  Developer 139750
2  Developer 173200
3  Developer  79750
4  Developer 115000
5  Developer     NA
6   Analyst   97000
7       <NA> 175000
8   Analyst  147765
9   Analyst  119250
10  Analyst      NA
11        QA  79800
12        QA  77700
13      <NA>  78000
14        QA 104800
15        QA 117150
16        QA 101000
17        QA     NA
18        QA 124750
19        QA 137000
20 Developer     NA
21 Developer 106294

> tgroup <- data.frame(cbind(T$Role,T$Salary))
> sGroups <- stack(tgroup)
> areslt <- aov(values~ind,data=sGroups)
> summary(areslt)

            Df    Sum Sq   Mean Sq F value Pr(>F)
ind          1 1.209e+11 1.209e+11   270.4 <2e-16 ***
Residuals   34 1.520e+10 4.470e+08
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
6 observations deleted due to missingness

> taov <- aov(Salary~Role,data=T)
> summary(taov)
            Df    Sum Sq   Mean Sq F value Pr(>F)
Role         2 9.865e+08 493252642   0.639  0.545
Residuals   12 9.260e+09 771648886
6 observations deleted due to missingness