我正在尝试绘制一个随机截距模型，该模型还包含最佳拟合线。该模型应该显示团队文化和有益行为之间的关系。因此，所有个人都嵌套在团队中。
当我尝试绘制我的数据时，我可以让我的最适合水平绘制的线，但是当我按团队分组时，我所有的随机截距都是垂直的而不是水平的（见下图）。你对如何进行有什么建议吗？我希望所有的球队线都与最合适的线相似，但截距不同。
这是一个示例数据集。我还包括了我的多级模型中的预测值。
mock_data <- tibble(team_num = c(1, 1, 1, 1, 1, 1, 1, 1, 110, 110, 110, 110, 112, 112, 113, 113, 113, 120, 120, 120),
pred_vig = c(2.4, 2.4, 2.4, 2.4, 2.4, 2.4, 2.4, 2.4, 2.61, 2.61, 2.61, 2.61, 2.91, 2.91, 2.42, 2.42, 2.42, 2.45, 2.45, 2.45),
exer_vig = c(4, 1, 2, 2, 3, 1, 2, 2, 2, 2, 3, 3, 3, 3, 1, 3, 3, 1, 2, 3),
cent_team_wm_agg = c(-0.0908, -0.0908, -0.0908, -0.0908, -0.0908, -0.0908, -0.0908, -0.0908, -0.00952, -0.00952, -0.00952, -0.00952, 0.328, 0.328, -.297, -.297, -.297, -.122, -.122, -.122))