need help with using R studio, need thorough explanation and computation code and output! thank you

1. Here the frequencies of events in each of five categories

Orange- 21

Blue- 21

Green- 18

Red-19

Maroon - 20

1. Using r, (you must show your code and output) find the appropriate measure of central tendency.

2. Create a barplot of the distribution. Be sure to label the x and y axes and the names of each team. The title of the graph should be "Categories and Events".

2. A researcher wants to know if there is a correlation between introspection and optimism. Using two questionnaires, the researcher collects the following data

Participant	Introspection	Optimism
1	51	55
2	65	80
3	74	71
4	74	66
5	75	74
6	76	68
7	87	51
8	86	67
9	51	74
10	85	67
11	52	81
12	92	83
13	97	87
14	70	74
15	86	84

1. Compute the (Pearson's r) correlation for these data.

2. Plot introspection against optimism.

3. Compute the linear model for the data. What are the slope and intercepts?

4. Given the slope, what do you expect the trend of the data to be (e.g. "as x increases, y...")

5. If "Introspection" has a value of 75, what would be the predicted value of "Optimism?