{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)
_Citation_: Trends in Internet-based business-to-business marketing
_Abstract_: The Internet is changing the transactional paradigms under which businesses-to-business marketers operate. Business-to-business marketers that take advantage of the operational efficiencies and effectiveness that emerge from utilizing the Internet in transactions are out performing firms that utilize traditional transactional processes. As an example, Dell computers, by utilizing business-to-business processes that take advantage of the Internet, has gained the largest market share in the PC business when compared to traditional manufacturers such as Compaq. This paper first examines the genesis of the Internet movement in business-to-business markets. The long-term impact of the increase of business-to-business utilization of the Internet on the marketing theory and marketing process is then discussed. Finally, managerial implications and directions for future research are highlighted.
Dataset includes:
1) Business marketing focus – traditional or forward thinking.
2) Internet use – low, medium, or high levels of business marketing use on the internet.
3) Time _ 1 – sales scores at the first measurement time.
4) Time _ 2 – sales scores at the second measurement time
On all of these questions, be sure to include a coherent label for the X and Y axes. You should change them to be “professional looking” (i.e. Proper Case, explain the variable listed, and could be printed in a journal). The following will be assessed:
1) Is it readable?
2) Is X-axis labeled appropriately?
3) Is Y-axis labeled appropriately?
4) Is it the right graph?
5) Do the labels in the legend look appropriate?
6) Are there error bars when appropriate?
We won’t grade for color of bars or background color, but you should consider that these things are usually printed in black/white – so be sure you know how to change those values as well as get rid of that grey background.
Please note that each subpoint (i.e. a, b) indicates a different chart.
“`{r starting} library(readxl) X05_data = read.csv(“/Users/bingjinzheng/Desktop/ANLY 500 – Principles of Analytics I/4:20/05_data.csv”,header = TRUE, stringsAsFactors = FALSE) library(ggplot2) library(reshape) cleanup = theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), panel.background = element_blank(), axis.line.x = element_line(color=“black”), axis.line.y = element_line(color=“black”),legend.key=element_rect(fill=“white”),text = element_text(size = 14))
“`
1) Make a simple histogram using ggplot:
a. Sales at time 1
{r hist1} saleshist1 = ggplot(X05_data, aes(time.1)) saleshist1+ geom_histogram(binwidth=0.4,color=”black”,fill=”white”)+ xlab(“sales time 1”)+ ylab(“frequency”)+ cleanup
b. Sales at time 2
{r hist2} saleshist2 = ggplot(X05_data, aes(time.2)) saleshist2 + geom_histogram(binwidth=0.4, color = “black”, fill=”white”)+ xlab(“sales time 2”)+ ylab(“frequency”)+ cleanup
2) Make a bar chart with two independent variables:
a. Business focus, internet, DV: sales at time 2
{r bar1} X05_data$internet = factor(X05_data$internet, levels=c(“high”, “medium”, “low”), labels=c(“high”, “medium”, “low”)) twobar = ggplot(X05_data, aes(internet,time.2, fill = biz_focus)) twobar + stat_summary(fun=mean, geom=”bar”, position=”dodge”)+ stat_summary(fun.data=mean_cl_normal, geom=”errorbar”, position=position_dodge(width=0.9), width=0.2)+ xlab(“internet usage”)+ ylab(“sales time 2″)+ scale_fill_discrete(name=”business focus”)+ cleanup
3) Make a bar chart with two independent variables:
a. Time (time 1, time 2), Business focus, DV: is sales from time 1 and 2 “`{r}
“`
4) Make a simple line graph:
a. Time (time 1, time 2), DV: is sales from time 1 and 2
“`{r line}
“`
5) Make a simple scatterplot:
a. Sales at Time 1, Time 2
{r scatter1} scatter = ggplot(X05_data, aes(time.1, time.2)) scatter+ geom_point() + xlab(“sales time 1”)+ ylab(“sales time 2”)+ cleanup
6) Make a grouped scatterplot:
a. Sales at time 1 and 2, Business focus
{r scatter2} grouped = ggplot(X05_data, aes(time.1, time.2, color=biz_focus)) grouped+ geom_point()+ xlab(“sales time 1”)+ ylab(“sales time 2”)+ scale_color_manual(values=c(“gray”,”black”),name=”business focus”)+ cleanup