Thank you so much Yahuda. There is the data:
In[2]:= data =
Import["C:\\Users\\Administrator\\Desktop\\Book1.xlsx"][[1]]
Out[2]= {{"OHIO", "1963", "2", "69.4"}, {"OHIO", "1963", "3",
"112.9"}, {"OHIO", "1963", "4", "53.4"}, {"TEXAS", "1963", "1",
"161.0"}, {"TEXAS", "1963", "2", "32.4"}, {"TEXAS", "1963", "3",
"166.7"}, {"TEXAS", "1963", "4", "59.7"}, {"TEXAS", "1963", "5",
"52.0"}, {"TEXAS", "1963", "6", "57.3"}, {"BOSTON", "1963", "1",
"60.6"}, {"BOSTON", "1967", "1", "0.3"}, {"BOSTON", "2001", "8",
"0.3"}, {"BOSTON", "2002", "1", "3.6"}, {"AUSTIN", "1959", "2",
"72.4"}, {"AUSTIN", "1959", "3", "162.4"}, {"AUSTIN", "1959", "4",
"32.5"}, {"AUSTIN", "1959", "5", "46.1"}, {"AUSTIN", "1959", "6",
"93.3"}, {"AUSTIN", "1959", "7", "88.6"}, {"AUSTIN", "1959", "8",
"58.0"}, {"AUSTIN", "1959", "12", "52.8"}, {"AUSTIN", "1960", "4",
"97.5"}}