使用R计算自由度，置信区间

Question

我下面有一个数据

P1      State
1       NY
8       NY
10      NY
12      CO
14      CO

（此数据几乎是80行，具有相似的值-NY为40，CO为40）

我需要使用z距离计算自由度，每组平均值的95％置信区间。

我可以在R中编写哪些代码或公式来实现这一目标？

我已经使用下面的代码计算了平均值SD。 由（data $ P1，data $ State，mean）
由（data $ P1，data $ State，SD）