nom <- nomogram(DXliver1~Age2+ Sex2 + Race2 + Site2 + Site3 + Grade2 + Grade3 + Grade4 + Stage2 + + Stage3 + Chemotherapy2 + Income2 + Income3 + Marital2 + Marital3 + Marital4 + + DXbone2 + DXlung2, fun=function(x) 1/(1+exp(-x))) Error in lims[[i]] : subscript out of bounds

这个错误通常是因为你在指定变量和变量权重时出现了语法错误，导致`nomogram()`函数无法正确解析变量名称。请检查你的代码，确保变量名的拼写和大小写都正确，并且每个变量名之间都使用加号（+）连接。在你的代码中，我注意到有一些多余的加号（+）符号，这可能会导致`nomogram()`函数无法正确解析变量名称。请尝试将这些多余的加号（+）符号删除，然后重新运行代码，看看问题是否得到解决。例如，你可以尝试使用以下代码：

nom <- nomogram(DXliver1 ~ Age2 + Sex2 + Race2 + Site2 + Site3 + Grade2 + Grade3 + Grade4 + Stage2 +
                Stage3 + Chemotherapy2 + Income2 + Income3 + Marital2 + Marital3 + Marital4 +
                DXbone2 + DXlung2, fun=function(x) 1/(1+exp(-x)))

如果问题仍然存在，请提供更多的代码和上下文，以便我能够更好地帮助你解决这个问题。