绘制伯努利分布的对数似然图

Question

我有一个数据集，其中包含5个不同学生进行10次公平投币的结果。

我发现的对数似然公式为∑ _{i = 1} ⁿ log p ** X_i（1-p）** 1-X_i

如何在R中绘制此图？我的值是[8,8,4,5,6]，概率是0.5（p = 0.5），因为这是一次公平的抛硬币。