projekt1
Branża, wielkość a istotność trendów:
Branża szczegółowa!
## [1] "Komputery i maszyny pozwalają zwiększyć wydajność pracy i zracjonalizować zatrudnienie : istotność"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 7.7 0.596 0.57 0.88
## Residuals 282 295.1 1.046
## 1 observation deleted due to missingness
## [1] "Komputery i maszyny pozwalają zwiększyć wydajność pracy i zracjonalizować zatrudnienie : reakcja"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 15.6 1.198 1.46 0.14
## Residuals 210 172.6 0.822
## [1] "Małym firmom coraz trudniej jest konkurować z dużymi : istotność"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 31 2.42 1.35 0.19
## Residuals 276 497 1.80
## 7 observations deleted due to missingness
## [1] "Małym firmom coraz trudniej jest konkurować z dużymi : reakcja"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 8 12 1.50 1.24 0.28
## Residuals 129 156 1.21
## [1] "To, co wcześniej było sprzedawane jako produkt, zaczyna być oferowane jako usługa (np. w wynajmie, abonamencie) : istotność"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 30 2.27 1.41 0.15
## Residuals 253 408 1.61
## 30 observations deleted due to missingness
## [1] "To, co wcześniej było sprzedawane jako produkt, zaczyna być oferowane jako usługa (np. w wynajmie, abonamencie) : reakcja"
## [1] "za małe liczebności na anovę"
## [1] "Informacje i dane stają się istotnymi i wartościowymi towarami : istotność"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 12.6 0.967 0.85 0.6
## Residuals 277 313.7 1.133
## 6 observations deleted due to missingness
## [1] "Informacje i dane stają się istotnymi i wartościowymi towarami : reakcja"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 8.9 0.684 0.78 0.68
## Residuals 210 183.0 0.871
## [1] "Firmy mogą samodzielnie wykorzystać internet do budowy wizerunku i komunikacji z klientami : istotność"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 24.9 1.917 1.94 0.026 *
## Residuals 283 279.3 0.987
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## [1] "Firmy mogą samodzielnie wykorzystać internet do budowy wizerunku i komunikacji z klientami : reakcja"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 14 1.075 1.71 0.061 .
## Residuals 219 138 0.631
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## [1] "Nasila się rywalizacja o najlepszych, wykwalifikowanych specjalistów : istotność"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 23 1.80 1.49 0.12
## Residuals 280 338 1.21
## 3 observations deleted due to missingness
## [1] "Nasila się rywalizacja o najlepszych, wykwalifikowanych specjalistów : reakcja"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 10 10 1.000 1.21 0.29
## Residuals 159 131 0.824
## [1] "Starsza kadra ma problemy z dostosowaniem się do nowych technologii i warunków : istotność"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 19 1.48 0.96 0.49
## Residuals 276 425 1.54
## 7 observations deleted due to missingness
## [1] "Starsza kadra ma problemy z dostosowaniem się do nowych technologii i warunków : reakcja"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 5 6.0 1.196 1.33 0.26
## Residuals 67 60.2 0.899
## [1] "Dla klientów i odbiorców coraz istotniejsze stają się kwestie związane z ekologią i zdrowym stylem życia : istotność"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 58 4.44 3.33 9.3e-05 ***
## Residuals 279 372 1.33
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 4 observations deleted due to missingness
## [1] "Dla klientów i odbiorców coraz istotniejsze stają się kwestie związane z ekologią i zdrowym stylem życia : reakcja"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 8 7.6 0.956 1.07 0.39
## Residuals 102 91.4 0.896
## [1] "Praca zdalna i outsourcing stają się coraz bardziej rozpowszechnione : istotność"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 41 3.12 1.93 0.027 *
## Residuals 272 440 1.62
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 11 observations deleted due to missingness
## [1] "Praca zdalna i outsourcing stają się coraz bardziej rozpowszechnione : reakcja"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 6 2.1 0.349 0.36 0.9
## Residuals 88 85.1 0.967
## [1] "Zwiększa się konkurencja ze strony firm z innych regionów i krajów, które zyskują dostęp do klientów np. przez internet : istotność"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 51 3.94 2.37 0.005 **
## Residuals 279 464 1.66
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 4 observations deleted due to missingness
## [1] "Zwiększa się konkurencja ze strony firm z innych regionów i krajów, które zyskują dostęp do klientów np. przez internet : reakcja"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 7 10.9 1.56 1.36 0.23
## Residuals 102 117.3 1.15
## [1] "W wyniku rozwoju nowych technologii coraz łatwiejszy staje się dostęp do wcześniej nieosiągalnych rynków : istotność"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 28 2.17 1.38 0.17
## Residuals 274 429 1.57
## 9 observations deleted due to missingness
## [1] "W wyniku rozwoju nowych technologii coraz łatwiejszy staje się dostęp do wcześniej nieosiągalnych rynków : reakcja"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 11 7.5 0.679 0.62 0.81
## Residuals 144 157.4 1.093
## [1] "Rośnie udział klientów w kształtowaniu produktów i usług : istotność"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 16 1.25 1.04 0.41
## Residuals 279 334 1.20
## 4 observations deleted due to missingness
## [1] "Rośnie udział klientów w kształtowaniu produktów i usług : reakcja"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 12 11.2 0.932 0.97 0.48
## Residuals 157 151.4 0.965
## [1] "Nowe technologie sprawiają, że niektóre z wcześniejszych produktów i usług stają się nieopłacalne : istotność"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 13 26 2.04 1.21 0.27
## Residuals 275 463 1.68
## 8 observations deleted due to missingness
## [1] "Nowe technologie sprawiają, że niektóre z wcześniejszych produktów i usług stają się nieopłacalne : reakcja"
## Df Sum Sq Mean Sq F value Pr(>F)
## branza_det 7 4.6 0.660 0.85 0.55
## Residuals 95 74.0 0.779
df1<-ddply(baza1,.(A2),summarize,mean=mean(baza1[,14+i],na.rm=T),sd=sd(baza1[,14+i],na.rm=T),len=length(baza1[,14+i]),drop=F) df1\(se=df1\)sd/sqrt(df1\(len) df2<-df1[df1\)len>9,]
Branża, wielkość a reakcja na trendy:
aw1<-aov(istotne_mean~branza_det,data=baza1) summary(aw1)
df1<-ddply(baza1,.(branza_det),summarize,mean=mean(ist4lub5,na.rm=T),sd=sd(ist4lub5,na.rm=T),len=length(ist4lub5),drop=F) df1\(se=df1\)sd/sqrt(df1\(len) df1\)branza_det<-levels(baza1.2\(A2) df2<-df1[df1\)len>9,]
ggplot(df2, aes(x=reorder(branza_det,mean), y=mean, colour=reorder(branza_det,mean))) + geom_line(alpha=.2,size=1)+geom_point(size=4)+theme(text=element_text(size=20))+theme_linedraw()+coord_flip()+labs(colour=“branża”,x=“”,y=“średnia istotność”,title=“istotnośc”)+ geom_errorbar(aes(ymin=mean-se, ymax=mean+se), width=.2,size=1)