What is the problem you see?
Where does the panel() function come from? It is not a function in base R
What is the object shape_data? Can you post that or a subset of it? See
What is the problem you see?
Where does the panel() function come from? It is not a function in base R
What is the object shape_data? Can you post that or a subset of it? See