You can use the table() function to print the frequency of each element present in a vector.
In your case:
>count <- table(numbers)
>count
Output:
numbers
4 5 23 34 43 54 56 65 67 324 435 453 456 567 657
2 1 2 2 1 1 2 1 2 1 3 1 1 1 1
For a particular element, use the following code:
> count[names(count)==56]
56
2